m1= CREATEOBJECT("Form1") m1.Show(1) ************************************************** *-- Form: form1 (c:\mmviscollect\test.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 06/28/05 09:29:05 AM * DEFINE CLASS form1 AS form DoCreate = .T. Caption = "Form1" cuserid = "" Name = "Form1" ADD OBJECT combo1 AS combobox WITH ; BoundColumn = 2, ; Height = 24, ; ColumnCount = 2, ; Left = 72, ; Style = 2, ; Top = 60, ; BoundTo = .f., ; Width = 156, ; Name = "Combo1" PROCEDURE combo1.Init CREATE CURSOR cTest (cUserID C(5), cEmpName C(50)) FOR asd = 1 TO 4 INSERT INTO cTest VALUES (TRANSFORM(asd),"User "+TRANSFORM(asd)) NEXT FOR asd = 1 TO 4 INSERT INTO cTest (cEmpName) VALUES ("User "+TRANSFORM(asd+5)) NEXT thisform.cUserID = "" SELECT DISTINCT cUserID, cEmpName ; FROM cTest; INTO CURSOR c_AllEmployees thisform.combo1.rowsourcetype = 3 thisform.combo1.rowsource = ; "SELECT distinct cEmpName, cUserID " + ; "FROM c_AllEmployees" + ; " INTO CURSOR c_AllEmployees " + ; "ORDER BY 1" thisform.combo1.controlsource = 'thisform.cUserID' thisform.combo1.ListIndex = 0 KEYBOARD '{CTRL+0}' ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************