Bu arada bende sonradan dikkat ettim belirttiğin kısma. Yine haklı çıktın, her zamanki gibi 

alias.field1, alias.field2

seklinde yazmissin ama:

alias.field1, field2

seklinde olacak. VFP her nedense aliasi sadece basta bir kere vermeni istiyor (belki de cok sayida cursor ile rowsource'u onlemek icin).

Not: O ornek herhalde oyle olmak zorundaydi soru nedeniyle, yoksa rowsourcetype = 2 tavsiye etmem. Benim favorim:

1

2

RowSourceType = 3 

RowSource = 'select firma_ad, firma_no from firmalar into cursor crsFirma'

gibi.

1

.RowSource = "CrsFirma. FirmaAd, CrsFirma. FirmaNo" && Not working - Error

1

.RowSource = "CrsFirma. FirmaAd, FirmaNo" && Working !!!

Birisi bir açıklama getirirse sevinicem çünkü aşağıdaki kod çalışıyor:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

* Author: Cetin Basoz

 

PUBLIC oForm

oForm = CREATEOBJECT('myForm')

oForm.Show

 

DEFINE CLASS myForm as Form

  datasession=2

 ADD OBJECT myCombo as combobox ;

 WITH ;

     rowsourcetype=2,;

     rowsource="customer.Company,Contact,cust_id",;

    boundcolumn=3,;

    columncount=3,;

    columnwidths="200,200,0"

 

PROCEDURE load

  USE (_samples+'data\customer')

ENDPROC

PROCEDURE mycombo.init

 lcCustomerID = "CENTC"

 this.Value = m.lcCustomerID

endproc

enddefine

Üstat;

VFP bile senin yazdığın kodlara kıyak geçiyor

1

.RowSource = "CrsFirma. FirmaAd, FirmaNo"

ben şeklinde kullanıyorum şuana kadar problem çıkarmadı.

Formumda kullanmış olduğum bir combobox var.  Combobox 'ın Init eventindeki kodum aşağıdaki gibi:

1

2

3

4

5

6

7

8

9

WITH This

    .RowSourceType = 2

    .RowSource = "CrsFirma.FirmaAd"

*!*    .RowSource = "CrsFirma.FirmaAd, CrsFirma.FirmaNo"

*!*    .ListIndex = 1

    .BoundColumn = 1 

    .ColumnCount = 2 

    .ColumnWidths = "260,40"

ENDWITH

Buraya kadar her şey normal. Ancak ben .RowSource 'u :

1

.RowSource = "CrsFirma. FirmaAd, CrsFirma. FirmaNo"

Biçiminde kullanmak istiyorum. Ve bir türlü yapamadım! Aldığım hata mesajı ise aşağıda :

---------------------------
Microsoft Visual FoxPro
---------------------------
Error No..................: 1130
Error Message.............: 'field' phrase is not found.
Error Code................: .RowSource = "CrsFirma.FirmaAd,CrsFirma.FirmaNo"
Error Line................: 5
Program Name..............: MODEL_SIPARIS_DETAY.PGFTAMAMLA.PGGENEL.CBOCOMPANY.INIT
---------------------------
Tamam   
---------------------------

CrsFirma, bir Cursor ve Formun Load 'ın da oluşturuyorum.

,Ne yapmam yada neyi değiştirmem gerekiyor?

Yardımlar ve yorumlar için şimdiden çok teşekkür ediyorum...