Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Super column headings
Message
De
05/05/2008 10:43:08
 
 
À
05/05/2008 10:01:37
Information générale
Forum:
Visual FoxPro
Catégorie:
Autre
Versions des environnements
Visual FoxPro:
VFP 9 SP1
Divers
Thread ID:
01315101
Message ID:
01315111
Vues:
26
Hi James,

I'd create a container class with all those fields, that you need to display in one single column. Then I'd remove the default textbox and use the before defined container control.

You can try this out by creating a new form with a grid that contains two columns. Within form.load just create a cursor with three field like this:
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 TOP
Now 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.

Last but not the least, in Grid.Column2.Text1.init put this line of code
This.ControlSource = [crsTest.dField3]
This should give you a rough impression.
Best Regards
-Tom

Debugging is twice as hard as writing the code in the first place.
Therefore, if you write the code as cleverly as possible, you are,
by definition, not smart enough to debug it.

Oh, and BTW: 010101100100011001010000011110000101001001101111011000110110101101110011
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform