WITH ThisForm.pgFrame1.Page2 .cboContact.Clear() .cboContact.AddItem(custv.contact) .cboContact.AddItem(custv.contact2) .cboContact.AddItem(custv.contact3) .cboContact.AddItem(custv.contact4) .cboContact.AddItem(custv.contact5) .cboContact.ListItemId = 1 .cboAddress.Clear() .cboAddress.AddItem(custv.address1) .cboAddress.AddItem(custv.address2) .cboAddress.ListItemId = 1 ......etc ENDWITHThanks a million.
*Form.init >Use Mytable1 >Scan > If some condition then && If apply > thisform.combo1.AddItem(field1 + " " + field2) &&etc.... > endif >endscan>
Use Mytable2 >thisform.combo2.clear >Scan > If some condition then && it depends the value selected at combo1 > thisform.combo2.AddItem(field3) > endif >endscan >thisform.combo2.refresh>