程序代码:WITH THIS.Columns[1]
.AddObject('check1','CheckBox') && 添加复选框
.CurrentControl = 'Check1' && 用复选框显示列内容
.Check1.Visible = .t. && 使复选框可见
.Check1.Caption = '' && 去掉复选框右边的文字 check1
.Sparse = .f. && 所有行均显示复选框
.Alignment = 2 && 居中对齐
.Width = 28 && 列宽
ENDWITH


