Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Super column headings
Message
From
05/05/2008 11:26:13
 
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP1
Miscellaneous
Thread ID:
01315101
Message ID:
01315133
Views:
25
Naomi --

That looks like a relevant discussion, altho Marcia's response there was that she knew of no way to have headers across multiple columns.

Perhaps I'm on my own on this one.

>The only relevant message I found is Re: How to Control Grids with 2 Header Lines Thread #745484 Message #745723 though I believe this problem had to be discussed before...
>
>>Thomas --
>>
>>Hey, that's an interesting suggestion. Unfortunately, though, it won't fit in my case, as I still need the columns to be kept separate ... I just need headers than span multiple columns, leaving the columns as is.
>>
>>In any case, my hope was to find somebody else who had done work on this so I didn't have to!
>>
>>Thanks,
>>
>>
>>
>>>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.
Jim Nelson
Newbury Park, CA
Previous
Reply
Map
View

Click here to load this message in the networking platform