Hello Robert!
Here is a code that might be useful for you:
*-- Form: form1 (d:\vfp\form1.scx)
*-- ParentClass: form
*-- BaseClass: form
*
DEFINE CLASS form1 AS form
DoCreate = .T.
Caption = "Form1"
Name = "FORM1"
ADD OBJECT grid1 AS grid WITH ;
ColumnCount = 1, ;
Height = 96, ;
Left = 24, ;
RecordSource = "table2", ;
Top = 12, ;
Width = 336, ;
Name = "Grid1", ;
Column1.ControlSource = "table2.dddd", ;
Column1.Width = 50, ;
Column1.Name = "Column1"
ADD OBJECT form1.grid1.column1.header1 AS header WITH ;
Caption = "Dddd", ;
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 edit1 AS editbox WITH ;
AllowTabs = .T., ;
Format = "", ;
Height = 72, ;
Left = 36, ;
Top = 132, ;
Width = 324, ;
ControlSource = "Table2.Memof", ;
Name = "Edit1"
PROCEDURE grid1.AfterRowColChange
LPARAMETERS nColIndex
thisform.edit1.refresh
ENDPROC
ENDDEFINE
*
*-- EndDefine: form1
Have a happy day
Vladimir Shevchenko
> What is the way vfp prorammers handle memo fields for the user to view in
> a browse type fashion?
* Human is a question asked by birth and answered by death. Machine is another kind of question with another kind of answer
