PUBLIC oform1 oform1=NEWOBJECT("form1") oform1.Show DEFINE CLASS form1 AS form ADD OBJECT combo1 AS combobox WITH ; BoundColumn = 2, ; ColumnCount = 3, ; ColumnWidths = "0", ; && or "0,100,100" RowSourceType = 3, ; RowSource = "SELECT F2,F1,F2 FROM BYBY INTO CURSOR COMBO", ; Left = 120, ; Style = 2, ; Top = 36, ; Width = 205, ; BoundTo = .T., ; Name = "Combo1" PROCEDURE Load CREATE CURSOR byby (f1 c(20) DEFAULT PADC('_'+TRANS(RECCOUNT()),16,'1'),f2 c(30) DEFAULT PADC('_'+TRANS(RECCOUNT()),16,'2')) FOR k=1 TO 30 APPEND BLANK NEXT ENDPROC ENDDEFINE