以下是引用吹水佬在2015-4-26 20:07:58的发言:
0,1,4,5,7,8
WITH Thisform.grid1.Columns[1]
.AddObject('check1','CheckBox')
&& 添加复选框
.CurrentControl = 'Check1'
&& 用复选框显示列内容
.Check1.Visible = .t.
&& 使复选框可见
.Check1.Caption = '123'
&& 去掉复选框右边的文字 check1
.Sparse = .f.
&& 所有行均显示复选框
.Alignment = 1
&& 居中对齐=2,VFP6.0只有0和1
.Width = 50
&& 列宽
.Check1.Value=1
&& 默认
ENDWITH
我在下面加1句,=0,1,4,5,7,8时都不出错,但=2,2,6就报错误
但=0,1,4,5,7,8时,都不是在中间的。
thisform.grid1.column1.alignment=8
图片附件: 游客没有浏览图片的权限,请
登录 或
注册