combo box problem

[FoxKid]

combobox is not showing any list when i run this codes while table xyz is having more then 100 records in it...
Please help what is wrong in these codes.

Thanks and regards

***************************temp.prg*******************
PUBLIC oform

oform=CREATEOBJECT("pwfd&quot
oform.visible=.t.

READ events

DEFINE CLASS pwfd AS form
Top = 0
Left = 0
Height = 268
Width = 400
DoCreate = .T.
Caption = "PARTY WISE FABRIC DETAIL"
Name = "pwfd"

ADD OBJECT lblsdate as label with;
height = 23,;
left=24,;
top=62,;
width=132,;
name="lblsdate",;
caption="Date From :-"

ADD OBJECT lblldate as label with;
height = 23,;
left=24,;
top=100,;
width=132,;
name="lblldate",;
caption="Date To :-"

ADD OBJECT lblparty as label with;
height = 23,;
left=24,;
top=12,;
width=132,;
name="lblparty",;
caption="Party :-"

ADD OBJECT txtsdate AS textbox WITH ;
Height = 23, ;
Left = 114, ;
Top = 62, ;
Width = 132, ;
Name = "sdate"
format="E"

ADD OBJECT txtldate AS textbox WITH ;
Height = 23, ;
Left = 114, ;
Top = 100, ;
Width = 132, ;
Name = "ldate"
format = "E"
value={}


ADD OBJECT party AS combobox WITH ;
Height = 23, ;
Left = 114, ;
Top = 12, ;
Width = 100, ;
Name = "party", ;
recordsourcetype=3, ;
rowsource="sele name from xyz!parties into cursor xp order by name group by name"

ADD OBJECT command1 AS commandbutton WITH ;
Top = 221, ;
Left = 98, ;
Height = 25, ;
Width = 50, ;
Caption = "O.K.", ;
Name = "Command1"

ADD OBJECT command2 AS commandbutton WITH ;
Top = 221, ;
Left = 150, ;
Height = 25, ;
Width = 50, ;
Caption = "Cancel", ;
Name = "Command2"


PROCEDURE Unload
CLEAR events
ENDPROC

PROCEDURE command1.Click
ENDPROC
PROCEDURE command2.Click
thisform.Release()
ENDPROC

ENDDEFINE
**********************************************

 

[BPeisch]

It's probably because you used "Recordsourcetype" instead of "Rowsourcetype" as a property for the combo.


-BP (Barbara Peisch)

http://www.peisch.com

 

[baltman]

Change recordsourcetype=3 to RowSourceType=3

Brian

 

[FoxKid]

Thanks to both of you...