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


