当前位置: 代码迷 >> VFP >> gird 增加控件 只读解决方案
  详细解决方案

gird 增加控件 只读解决方案

热度:5807   发布时间:2013-02-26 00:00:00.0
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
  相关解决方案