CREATE CURSOR crsTest (cfield1 c(30), ifield2 i, dfield3 d) INSERT INTO crsTest(cfield1, ifield2, dfield3) VALUES ([lots of aaaaaaaaaaaaaaaaaa],1,DATE() + 1) INSERT INTO crsTest(cfield1, ifield2, dfield3) VALUES ([lots of bbbbbbbbbbbbbbbbbb],2,DATE() + 2) GO TOPNow exchange the textbox for a container. Within container.init put this code:
This.AddObject([text1],[Textbox]) This.AddObject([text2],[Textbox]) This.Text1.Width = 200 This.Text2.Top = This.Text1.Top This.Text2.Left = This.Text1.Left + This.Text1.Width + 10 This.Text1.ControlSource = [crsTest.cField1] This.Text2.ControlSource = [crsTest.iField2] This.Text1.Visible = .T. This.Text2.Visible = .T.Set Grid.RowHeight to 22 and Grid.Column1.Sparse to .F.
This.ControlSource = [crsTest.dField3]This should give you a rough impression.