gird 增加控件 只读
表单中有一个表格，表格数据源由SQl语句指定，然后在表格中动态增加一列checkbox，但是运行时checkbox不可操作，提示“只读”，表格中其他列也是“只读”的，我已将必要的属性都设定了，可是“只读”属性还是改不过来，请高人指点。
[解决办法]
改为：
thisform.grid1.RecordSourceType=4
thisform.grid1.RecordSource=null
thisform.grid1.RecordSource= "select filename,bz,0 AS YN into table tempb from temp "
thisform.grid1.Column1.header1.caption= '字段名a ' &&为了表格好看，修改了字段显示名字
thisform.grid1.Column2.header1.caption= '字段名b '
*thisform.grid1.ColumnCount=2 &&因为cxd表中不止两个字段，所以对grid1进行限制
*thisform.grid1.AddColumn(1) &&列首增加一列
thisform.grid1.column3.header1.caption= '选择 ' &&新增的一列好像是排最后的，所以用了Column3
thisform.grid1.column3.readonly=.f.
WITH This.column3
.addobject( "Check1 ", "CheckBox ")
.currentcontrol= 'Check1 '
.sparse=.f.
.Check1.Caption= ' '
.Check1.visible=.t.
.check1.enabled=.t.
*.ALIGNMENT=2 &&VFP6没有此属性
.check1.readonly=.f.
ENDWITH
thisform.grid1.Refresh
