1 Son düzenleyen, onders (02.12.2011 16:25:51)

Konu: seçilen değerden başka değişlenlere değer aktarmak

Yeni kayıt tuşuna bastıktan sonra
- OBJECT Islem1
- Object txtFiyat
- Object txtDoviz

.T. yapılıyor. Bunlar alt alta sıralı.
Yapmak istediğim :
- "OBJECT Islem1 " de seçimi yaptığım zaman
- Seçilen değerin "Ucret.fiyat" değerini "Object txtFiyat" a ,
   "Ucret.doviz" değerini "Object txtDoviz" değerine aktarıp
   gerekirse "Object txtFiyat" ve "Object txtDoviz" değerlerinde
   değişiklik yapabilmek

  Bunu nasıl yapabilirim ? "OBJECT Islem1" ile "Object txtFiyat"  arasına
  kod eklemek mi gerekiyor ?
 

  Teşekkürler.

*===========================================
ADD OBJECT Islem1 AS combobox WITH ;
     Top = 52, ;
     left = 385, ;
     Width = 200, ;   
     BackColor = 65535, ;
     rowsourcetype=2,;
     rowsource="Ucret.adi,no,fiyat,doviz",;
     boundcolumn=4,;
     columncount=4,;
     columnwidths="100,60,30,10",;
     Enabled = .T.

Add Object txtFiyat As myTextBox With ;
     Top = 77, ;
     left = 165, ;
     Width = 80, ;
     BackColor = 65535, ;
     InputMask = "999,999.99", ;
     Enabled = .T.

  Add Object txtDoviz As myTextBox With ;
       Top = 77, ;
       left = 255, ;
       Width = 20, ;
       BackColor = 65535, ;
       InputMask = "9", ;
       Enabled = .T.

2

Re: seçilen değerden başka değişlenlere değer aktarmak

Visual Fox Pro
*!* combobox.InteractiveChangeEvent

with this.parent
  .txtFiyat.Value = ucret.fiyat
  .txtDoviz.value = ucret.doviz
endwith

3

Re: seçilen değerden başka değişlenlere değer aktarmak

Bu eklemeyi nereye yapıyoruz ?

4

Re: seçilen değerden başka değişlenlere değer aktarmak

PROCEDURE Islem1.Init

    *!* combobox.InteractiveChangeEvent
    with this.parent
      .txtFiyat.Value = ucret.fiyat
      .txtDoviz.value = ucret.doviz
    endwith

        lcCustomerID = "CENTC"
        this.Value = m.lcCustomerID
   ENDPROC


e yerleştirdim. Program başlarken değerleri alıyor ve aktarmayı yapıyor.

*** Ben

Yeni kayıt tuşuna bastıktan sonra
- OBJECT Islem1
- Object txtFiyat
- Object txtDoviz

.T. yapılıyor. Bunlar alt alta sıralı.
Yapmak istediğim :
- "OBJECT Islem1 " de seçimi yaptığım zaman
- Seçilen değerin "Ucret.fiyat" değerini "Object txtFiyat" a ,
   "Ucret.doviz" değerini "Object txtDoviz" değerine aktarıp
   gerekirse "Object txtFiyat" ve "Object txtDoviz" değerlerinde
   değişiklik yapabilmek

şeklinde işlem gerçekleştirmek istiyorum.

5

Re: seçilen değerden başka değişlenlere değer aktarmak

Kodun basinda yeri yaziyor:(

6 Son düzenleyen, onders (04.12.2011 09:15:37)

Re: seçilen değerden başka değişlenlere değer aktarmak

PROCEDURE Islem1.InteractiveChange
        with this.parent
                 .txtFiyat.Value = ucret.fiyat
                 .txtDoviz.value = ucret.doviz
        endwith
   ENDPROC

şeklinde çözüldü.

Teşekkürler