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