WITH Thisform.grid1.Columns[1]
    .AddObject('check1','CheckBox')     && 添加复选框
    .CurrentControl = 'Check1'          && 用复选框显示列内容
    .Check1.Visible = .t.               && 使复选框可见
    .Check1.Caption = ''                && 去掉复选框右边的文字 check1
    .Sparse = .f.                       && 所有行均显示复选框
    .Alignment = 2                     && 居中对齐=2,VFP6.0只有0和1
    .Width = 28                         && 列宽
    .Check1.Value=1                     && 默认
ENDWITH
在9.0正常，在6.0不能用。
谢谢TONGDENG,叫我换9.0玩。。

這個用拖拉编程：先把Column1中的TextBox删掉，然后拖一个CheckBox进去，把尺寸和对齐摆放好，就可以了，不写代码也是可以的。写代码，是更清晰地知道到底干了什么，也方便修改，拖拉填写，没那么灵活。拖拉的过程，其实只是拖拉设计生成软件自动为你书写那段代码的过程，要知道：程序是执行代码的，不是执行所谓表单的。

比如1楼的代码，在Column容器中動態添加了一个Checkbox，但原先的TextBox还在，只不过后者不是當前的活动控件而已。如果你以后都不会用到那个被隐蔽了的TextBox，就不必让它存在，Remove掉是干净利落的。保留两个控件的理由，是在程序运行期间可以動態切换Column的显式控件。这些东西，不讲出来，恐怕你看了、抄了那个代码，也能用了，也不知道其中有什么隐藏的功能吧。事实上，Column容器可以容纳一切可能的控件，包括图像、网页等等，也可以不止一个控件。