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
**************************************************
_______________________________________________
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.
