oForm = CREATEOBJECT([form1]) oForm.Show(1) ************************************************** *-- Form: form1 (d:\all_zapl\asd.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 03/30/11 08:08:14 PM * DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 216 Width = 332 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT grid1 AS grid WITH ; ColumnCount = 2, ; Height = 200, ; Left = 4, ; Panel = 1, ; RecordSource = "crsGrid1", ; RowHeight = 23, ; Top = 2, ; Width = 320, ; Name = "Grid1", ; Column1.ControlSource = "crsGrid1.Fld1", ; Column1.Name = "Column1", ; Column2.ControlSource = "crsGrid1.Fld2", ; Column2.Width = 197, ; Column2.Sparse = .F., ; Column2.Name = "Column2" PROCEDURE Init thisform.Grid1.Column2.AddObject([Combo1],[ComboBox]) thisform.Grid1.Column2.CurrentControl = [Combo1] thisform.Grid1.Column2.Combo1.Visible = .t. thisform.Grid1.Column2.Combo1.RowSourceType = 3 thisform.Grid1.Column2.Combo1.RowSource = [SELECT Fld1, Fld2 FROM crsCombo INTO CURSOR crsTest] thisform.Grid1.Column2.Combo1.Requery() ENDPROC PROCEDURE Load CREATE CURSOR crsGrid1 (Fld1 C(20), Fld2 I) FOR asd = 1 TO 20 INSERT INTO crsGrid1 VALUES ([Rec ] + TRANSFORM(asd),asd) NEXT GO TOP IN crsGrid1 CREATE CURSOR crsCombo (Fld1 C(20), Fld2 I) FOR asd = 1 TO 20 INSERT INTO crsCombo VALUES ([Cbo ] + TRANSFORM(asd),asd) NEXT INDEX ON Fld2 TAG crsCombo ENDPROC PROCEDURE grid1.AfterRowColChange LPARAMETERS nColIndex SEEK crsGrid1.Fld2 IN crsCombo WAIT WINDOW crsCombo.Fld1 +[ ]+TRANSFORM(crsCombo.Fld2) NOWAIT ENDPROC ENDDEFINE * *-- EndDefine: form1 **************************************************