>>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 >>