>PUBLIC oform1 > >oform1=NEWOBJECT("form1") >oform1.Show > >CLOSE DATABASES > >USE "c:\FMSRun\Prompt\Zip_Code" IN 0 ORDER Zip_Code > >DEFINE CLASS form1 AS form > > > Top = 0 > Left = 0 > Height = 250 > Width = 453 > DoCreate = .T. > Caption = "Form1" > Name = "Form1" > > > ADD OBJECT combo1 AS combobox WITH ; > BoundColumn = 2, ; > ColumnCount = 2, ; > RowSourceType = 5, ; > Height = 24, ; > Left = 96, ; > Style = 2, ; > Top = 60, ; > Width = 156, ; > BoundTo = .T., ; > Name = "Combo1" > > > ADD OBJECT text1 AS textbox WITH ; > ControlSource = "thisform.Combo1.Value", ; > Height = 23, ; > InputMask = "99999999", ; > Left = 264, ; > Top = 60, ; > Width = 156, ; > Name = "Text1" > > > ADD OBJECT combo2 AS combobox WITH ; > BoundColumn = 2, ; > ColumnCount = 2, ; > RowSourceType = 5, ; > Height = 24, ; > Left = 96, ; > Style = 2, ; > Top = 96, ; > Width = 156, ; > BoundTo = .T., ; > Name = "Combo2" > > > ADD OBJECT text2 AS textbox WITH ; > ControlSource = "thisform.Combo2.Value", ; > Height = 23, ; > InputMask = "99999999", ; > Left = 264, ; > Top = 96, ; > Width = 156, ; > Name = "Text2" > > >* RowSourceType = 5, > > ADD OBJECT combo3 AS combobox WITH ; > BoundColumn = 2, ; > ColumnCount = 2, ; > RowSourceType = 2, ; > Height = 24, ; > Left = 96, ; > Style = 2, ; > Top = 132, ; > Width = 156, ; > BoundTo = .T., ; > Name = "Combo3" > > > ADD OBJECT text3 AS textbox WITH ; > ControlSource = "thisform.Combo3.Value", ; > Height = 23, ; > InputMask = "99999999", ; > Left = 264, ; > Top = 132, ; > Width = 156, ; > Name = "Text3" > > > PROCEDURE combo1.Init > ADDPROPERTY(this,"aItems[256,2]") > FOR j=1 TO ALEN(this.aItems,1) > This.aItems[m.j,1]="Items"+STR(m.j) > This.aItems[m.j,2]=m.j+20 > NEXT > this.RowSource = "m.this.aItems" > this.Value = 34 > ENDPROC > > > PROCEDURE combo1.Valid > thisform.Text1.Refresh > ENDPROC > > > PROCEDURE combo2.Valid > thisform.Text2.Refresh > ENDPROC > > > PROCEDURE combo2.Init > ADDPROPERTY(this,"aItems[256,2]") > FOR j=1 TO ALEN(this.aItems,1) > This.aItems[m.j,1]="Items"+STR(m.j) > This.aItems[m.j,2]=-m.j > NEXT > this.RowSource = "m.this.aItems" > this.Value = -34 && with negatives you can select but set Value doesn't find Value into RowSource > ENDPROC > > > PROCEDURE combo3.Valid > thisform.Text3.Refresh > ENDPROC > > > PROCEDURE combo3.Init > ADDPROPERTY(this,"aItems[100000,2]") > FOR j=1 TO ALEN(this.aItems,1) > This.aItems[m.j,1]="Items"+STR(m.j) > This.aItems[m.j,2]=m.j > NEXT >* this.RowSource = "m.this.aItems" > this.RowSource = "Zip_Code.Zip_Code,City" > this.Value = 234 > ENDPROC > > >ENDDEFINE >