WITH Thisform.grid1.Columns[1]
.AddObject('check1','CheckBox') && 添加复选框
.CurrentControl = 'Check1' && 用复选框显示列内容
.Check1.Visible = .t. && 使复选框可见
.Check1.Caption = '' && 去掉复选框右边的文字 check1
.Sparse = .f. && 所有行均显示复选框
.Alignment = 2 && 居中对齐=2,VFP6.0只有0和1
.Width = 28 && 列宽
.Check1.Value=1 && 默认
ENDWITH
在9.0正常,在6.0不能用。
谢谢TONGDENG,叫我换9.0玩。。
.AddObject('check1','CheckBox') && 添加复选框
.CurrentControl = 'Check1' && 用复选框显示列内容
.Check1.Visible = .t. && 使复选框可见
.Check1.Caption = '' && 去掉复选框右边的文字 check1
.Sparse = .f. && 所有行均显示复选框
.Alignment = 2 && 居中对齐=2,VFP6.0只有0和1
.Width = 28 && 列宽
.Check1.Value=1 && 默认
ENDWITH
在9.0正常,在6.0不能用。
谢谢TONGDENG,叫我换9.0玩。。