Here it is!

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


**************************************************
*-- Form: form1 (c:\meremortals\v4.20\apps\impact\rex2.scx)
*-- ParentClass: form
*-- BaseClass: form
*-- Time Stamp: 08/24/99 02:15:02 PM
*
DEFINE CLASS form1 AS form


DoCreate = .T.
Caption = "Form1"
Name = "Form1"


ADD OBJECT grid1 AS grid WITH ;
ColumnCount = 1, ;
DeleteMark = .F., ;
Height = 200, ;
Left = 27, ;
Panel = 1, ;
Top = 40, ;
Width = 320, ;
Name = "Grid1", ;
Column1.Width = 264, ;
Column1.Name = "Column1"


ADD OBJECT form1.grid1.column1.header1 AS header WITH ;
Caption = "Header1", ;
Name = "Header1"


ADD OBJECT form1.grid1.column1.combo1 AS combobox WITH ;
BoundColumn = 2, ;
ColumnWidths = "50,0", ;
RowSourceType = 6, ;
RowSource = "Itty.cName,iId", ;
ControlSource = "InvM.iTTyId", ;
Height = 24, ;
ColumnLines = .F., ;
Left = 142, ;
Top = 47, ;
Width = 100, ;
BoundTo = .T., ;
Name = "Combo1"


ADD OBJECT combo1 AS combobox WITH ;
BoundColumn = 2, ;
ColumnCount = 2, ;
ColumnWidths = "50,0", ;
RowSourceType = 6, ;
RowSource = "Itty.cName,iId", ;
ControlSource = "InvM.IttyId", ;
Height = 24, ;
ColumnLines = .F., ;
Left = 94, ;
Top = 5, ;
Width = 187, ;
BoundTo = .T., ;
Name = "Combo1"


PROCEDURE Init
This.Grid1.Column1.Combo1.Requery()
ENDPROC


PROCEDURE Load
set proc to setup
do setprocsandlibs
ENDPROC


ENDDEFINE
*
*-- EndDefine: form1
**************************************************


Itty.DBF

iid________ cName________________________
1,From ODH
2,Expired
3,From other health departments
4,From non health departments
5,Privately purchased
6,To other health departments
7,To non health departments
8,Wasted
9,Mass clinic
10,Immunization given
11,Posting adjustment


InvM

iid________ ITTYId_____ cName________________________
5, 1,This is the first transaction
6, 5,Second transaction
7, 7,Last transaction
8, 0,
9, 0,




>>It is.
>>
>>Any other ideas?
>>
>>Rex
>
>Can you save your form as class and sand me code?