Cheers Dave I'll check it out now. Thanks,
* Peter Cushing * IT development and support Signature Dave Crozier wrote: > 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.
