Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Another stupid Grid question
Message
From
07/02/2002 14:20:31
 
 
To
07/02/2002 14:13:04
General information
Forum:
Visual FoxPro
Category:
Object Oriented Programming
Miscellaneous
Thread ID:
00616883
Message ID:
00616892
Views:
27
This message has been marked as the solution to the initial question of the thread.
>Hi all...
>
>Ive tried creating a 2 column grid with the second column being a check box but i cant get the checkbox to click, the code is below, i know this is probably gone over a bunch every month but could someone please point out my mistake or ommission....
>
>thanks everyone!
>
>Jim Garner
>
>**********
Jim,

try this (see below)

>thisform.AddObject('Grid1','Grid')
>thisform.grid1.column2.addobject('check1','checkbox')
>
>with thisform.grid1
> .Left=22
> .width=189
> .top=41
> .height=273
> .headerheight=20
> .columncount=2
> .deletemark=.f.
> .recordmark=.f.
> .Visible=.T.
> .recordsource='auditv'
> .recordsourcetype=1
> .scrollbars=2
>endw
>*** column 1 ***
>with thisform.grid1.column1
> .alignment=0
> .width=97
> .controlsource='left(auditv.vendor,15)'
> .readonly=.t.
> .Header1.backcolor=rgb(192,192,192)
> .Header1.Caption='Vendor #'
>endw
>****************
>*** column 2 ***
>with thisform.grid1.column2
> .alignment=2
> .width=75
> .controlsource='auditv.audit'
> .currentcontrol='check1'
> .sparse=.f.
> .Header1.backcolor=rgb(192,192,192)
> .Header1.Caption='Audit/Hold'
> .check1.alignment=0
> .check1.caption=''
> .check1.value=.f.
.check1.Visible = .t.
>endw
>****************
Gregory
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform