以下是引用吹水佬在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