>PUBLIC oform1 > >oform1=NEWOBJECT("form1") >oform1.Show >RETURN > > > ************************************************** >*-- Form: form1 (d:\test\test combobox.scx) >*-- ParentClass: form >*-- BaseClass: form >*-- Time Stamp: 10/01/04 10:25:12 AM >* >DEFINE CLASS form1 AS form > > > DoCreate = .T. > Caption = "Form1" > Name = "Form1" > > > ADD OBJECT combo1 AS combobox WITH ; > ColumnCount = 2, ; > ColumnWidths = "100,200", ; > Height = 24, ; > Left = 192, ; > Top = 72, ; > Width = 100, ; > Name = "Combo1" > > > ADD OBJECT optiongroup1 AS optiongroup WITH ; > ButtonCount = 2, ; > Value = 2, ; > Height = 46, ; > Left = 24, ; > Top = 72, ; > Width = 132, ; > Name = "Optiongroup1", ; > Option1.Caption = "Option1", ; > Option1.Value = 0, ; > Option1.Height = 17, ; > Option1.Left = 5, ; > Option1.Top = 5, ; > Option1.Width = 61, ; > Option1.Name = "Option1", ; > Option2.Caption = "Option2", ; > Option2.Value = 1, ; > Option2.Height = 17, ; > Option2.Left = 5, ; > Option2.Top = 24, ; > Option2.Width = 61, ; > Option2.Name = "Option2" > > > PROCEDURE Init > create cursor test (f1 i, f2 c(10)) > insert into test values (1, "Hello") > insert into test values (1, "World") > insert into test values (2, "How") > insert into test values (2, "are") > insert into test values (2, "you?") > ENDPROC > > > PROCEDURE combo1.DropDown > this.RowSourceType = 0 > this.Clear() > this.RowSourceType = 3 > this.RowSource = ; > "select * from test where f1=" + ; > transform(thisform.optiongroup1.Value) + ; > " into cursor cxxx" > this.Requery() > ENDPROC > > >ENDDEFINE >* >*-- EndDefine: form1 >************************************************** >dropDown have a lot of issues,problems and bugs.
PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show RETURN DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT combo1 AS combobox WITH ; ColumnCount = 2, ; ColumnWidths = "100,200", ; Height = 24, ; Left = 192, ; Top = 72, ; Width = 100, ; Name = "Combo1",; RowSourceType = 3 ADD OBJECT optiongroup1 AS optiongroup WITH ; ButtonCount = 2, ; Value = 2, ; Height = 46, ; Left = 24, ; Top = 72, ; Width = 132, ; Name = "Optiongroup1", ; Option1.Caption = "Option1", ; Option1.Value = 0, ; Option1.Height = 17, ; Option1.Left = 5, ; Option1.Top = 5, ; Option1.Width = 61, ; Option1.Name = "Option1", ; Option2.Caption = "Option2", ; Option2.Value = 1, ; Option2.Height = 17, ; Option2.Left = 5, ; Option2.Top = 24, ; Option2.Width = 61, ; Option2.Name = "Option2" PROCEDURE Init create cursor test (f1 i, f2 c(10)) insert into test values (1, "Hello") insert into test values (1, "World") insert into test values (2, "How") insert into test values (2, "are") insert into test values (2, "you?") ENDPROC PROCEDURE combo1.GotFocus this.RowSource = ; "select * from test where f1=" + ; transform(thisform.optiongroup1.Value) + ; " into cursor cxxx" ENDPROC ENDDEFINE