我刚才又测试了1下。表格的数据源,是临时表的,CHECKBOX不能操作,因为临时表不能操作的。。
我刚才上面,说可以改变,是我用的不是不临时表。
这样是不可以点的。但要是生成TABLE就可以。改为SELECT 0 AS 操作,* FROM SDB WHERE &WHERE1 ORDER BY 编号 ASC,费用期间 DESC INTO TABLE TMP_CASH
SELECT 3
WHERE1=" 楼栋=[46D]"
SELECT 0 AS 操作,* FROM SDB WHERE &WHERE1 ORDER BY 编号 ASC,费用期间 DESC INTO CURS TMP_CASH
SELECT TMP_CASH
THISFORM.Grid1.RECORDSOURCE=''
THISFORM.Grid1.COLUMNCOUNT = -1
THISFORM.Grid1.RECORDSOURCE=ALIAS()
thisform.grid1.columncount=21
thisform.grid1.column1.header1.caption="操作"
thisform.grid1.column1.alignment=2
With Thisform.grid1.Column1
&& 第1列,在第1列增加CHECKBOX
.AddObject("check0","checkbox")
.CurrentControl='check0'
.Sparse=.f.
.Width=28
.check0.caption=''
.check0.value=0
.check0.alignment=0
.check0.Visible=.T.
ENDWITH
THISFORM.REFRESH
THISFORM.GRID1.REFRESH