I run this following program, but grid show me nothing. please guide me where i am doing wrong.
Thank you.
SET CLASSLIB TO test
loForm = CREATEOBJECT('viewForm')
loForm.Show()
READ EVENTS
**************************************************
*-- Class: viewform (d:\asas\libs\test.vcx)
*-- ParentClass: form
*-- BaseClass: form
*-- Time Stamp: 08/08/03 02:04:14 PM
*
DEFINE CLASS viewform AS form
Top = 0
Left = 0
Height = 250
Width = 760
DoCreate = .T.
Caption = "Form"
Name = "viewform"
ADD OBJECT grid1 AS grid WITH ;
ColumnCount = 9, ;
Height = 169, ;
Left = 12, ;
RecordSource = "srhtrans", ;
Top = 24, ;
Width = 720, ;
Name = "Grid1", ;
Column1.ControlSource = "srhtrans.tr_type", ;
Column1.Width = 75, ;
Column1.Name = "Column1", ;
Column2.ControlSource = "srhtrans.tr_no", ;
Column2.Width = 75, ;
Column2.Name = "Column2", ;
Column3.ControlSource = "srhtrans.tr_date", ;
Column3.Width = 75, ;
Column3.Name = "Column3", ;
Column4.ControlSource = "srhtrans.ah_code", ;
Column4.Width = 75, ;
Column4.Name = "Column4", ;
Column5.ControlSource = "srhtrans.ah_desc", ;
Column5.Width = 75, ;
Column5.Name = "Column5", ;
Column6.ControlSource = "srhtrans.invserial", ;
Column6.Width = 75, ;
Column6.Name = "Column6", ;
Column7.ControlSource = "srhtrans.invno", ;
Column7.Width = 75, ;
Column7.Name = "Column7", ;
Column8.ControlSource = "srhtrans.invdate", ;
Column8.Width = 75, ;
Column8.Name = "Column8", ;
Column9.ControlSource = "srhtrans.netamount", ;
Column9.Width = 75, ;
Column9.Name = "Column9"
ADD OBJECT viewform.grid1.column1.header1 AS header WITH ;
Caption = "Tr_type", ;
Name = "Header1"
ADD OBJECT viewform.grid1.column1.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT viewform.grid1.column2.header1 AS header WITH ;
Caption = "Tr_no", ;
Name = "Header1"
ADD OBJECT viewform.grid1.column2.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT viewform.grid1.column3.header1 AS header WITH ;
Caption = "Tr_date", ;
Name = "Header1"
ADD OBJECT viewform.grid1.column3.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT viewform.grid1.column4.header1 AS header WITH ;
Caption = "Ah_code", ;
Name = "Header1"
ADD OBJECT viewform.grid1.column4.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT viewform.grid1.column5.header1 AS header WITH ;
Caption = "Ah_desc", ;
Name = "Header1"
ADD OBJECT viewform.grid1.column5.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT viewform.grid1.column6.header1 AS header WITH ;
Caption = "Invserial", ;
Name = "Header1"
ADD OBJECT viewform.grid1.column6.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT viewform.grid1.column7.header1 AS header WITH ;
Caption = "Invno", ;
Name = "Header1"
ADD OBJECT viewform.grid1.column7.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT viewform.grid1.column8.header1 AS header WITH ;
Caption = "Invdate", ;
Name = "Header1"
ADD OBJECT viewform.grid1.column8.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT viewform.grid1.column9.header1 AS header WITH ;
Caption = "Netamount", ;
Name = "Header1"
ADD OBJECT viewform.grid1.column9.text1 AS textbox WITH ;
BorderStyle = 0, ;
Margin = 0, ;
ForeColor = RGB(0,0,0), ;
BackColor = RGB(255,255,255), ;
Name = "Text1"
ADD OBJECT cmdok AS commandbutton WITH ;
Top = 204, ;
Left = 338, ;
Height = 27, ;
Width = 84, ;
Caption = "\
Name = "cmdOK"
PROCEDURE Load
USE views!srhTrans IN 0 SHARED
ENDPROC
PROCEDURE Init
LPARAMETERS lcTr_Type
PUBLIC gcTr_type
gcTr_type = lcTr_type
ENDPROC
ENDDEFINE
*
*-- EndDefine: viewform
**************************************************
