Oh, it should be non version specific in code, which is why I chose it.... Dave
-----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Dave Crozier Sent: 22 November 2011 14:01 To: ProFox Email List Subject: RE: Combo box in grid Peter, This is the source code, I can send you the form if you want to but it's in VFP9. Just ask and I'll email it to you. Dave ************************************************** *-- Form: form1 (d:\dev\flexipol\flexispec\forms\a a a peter.scx) *-- ParentClass: form *-- BaseClass: form *-- Time Stamp: 11/22/11 01:57:01 PM * DEFINE CLASS form1 AS form Top = 0 Left = 0 Height = 276 Width = 722 DoCreate = .T. Caption = "Form1" Name = "Form1" ADD OBJECT grid1 AS grid WITH ; ColumnCount = 3, ; Height = 216, ; Left = 24, ; Panel = 1, ; RecordSource = "curDutyH", ; RowHeight = 26, ; Top = 12, ; Width = 636, ; Name = "Grid1", ; Column1.ControlSource = "curDutyH.DH_Pk", ; Column1.Name = "Column1", ; Column2.ControlSource = "curDutyH.DH_Fabrc", ; Column2.CurrentControl = "Combo1", ; Column2.Width = 223, ; Column2.Sparse = .F., ; Column2.Name = "Column2", ; Column3.ControlSource = "curDutyH.DH_Fabrc", ; Column3.Width = 132, ; Column3.Name = "Column3" ADD OBJECT form1.grid1.column1.header1 AS header WITH ; Caption = "PK", ; Name = "Header1" ADD OBJECT form1.grid1.column1.text1 AS textbox WITH ; BorderStyle = 0, ; Margin = 0, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(255,255,255), ; Name = "Text1" ADD OBJECT form1.grid1.column2.header1 AS header WITH ; Caption = "Looked Up Description", ; Name = "Header1" ADD OBJECT form1.grid1.column2.text1 AS textbox WITH ; BorderStyle = 0, ; Margin = 0, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(255,255,255), ; Name = "Text1" ADD OBJECT form1.grid1.column2.combo1 AS combobox WITH ; BoundColumn = 2, ; ColumnCount = 1, ; ColumnWidths = "200", ; RowSourceType = 3, ; RowSource = "select all Description, Id from curLookup into cursor curCombo order by Description", ; Height = 24, ; Left = 37, ; Top = 23, ; Width = 100, ; Format = "!!!!!!!!!!!!!!!!!!!!", ; BoundTo = .T., ; Name = "Combo1" ADD OBJECT form1.grid1.column3.header1 AS header WITH ; Caption = "Looked Up Key", ; Name = "Header1" ADD OBJECT form1.grid1.column3.text1 AS textbox WITH ; BorderStyle = 0, ; Margin = 0, ; ForeColor = RGB(0,0,0), ; BackColor = RGB(255,255,255), ; Name = "Text1" PROCEDURE Load create cursor curDutyH (DH_Pk I, DH_Fabrc C(4)) insert into curDutyH values (1,"A001") insert into curDutyH values (2,"A002") insert into curDutyH values (3,"A003") create cursor curLookup (Id C(4), Description C(20)) insert into curLookup values ("A001", "Fabric A001") insert into curLookup values ("A002", "Fabric A002") insert into curLookup values ("A003", "Fabric A003") insert into curLookup values ("A004", "Fabric A004") * select curDutyH goto Top ENDPROC ENDDEFINE * *-- EndDefine: form1 ************************************************** [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/[email protected] ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
