贴一个纯代码的,供参考:
WITH ThisForm.Grid1.Column1
.AddObject('Check1', 'CheckBox')
.RemoveObject('Text1')
.CurrentControl="Check1"
.Check1.Caption=""
.Check1.Centered=.T. &&居中
.Sparse=.F. &&所有单元格
.Check1.Visible = .T.
ENDWITH
WITH ThisForm.Grid1.Column1
.AddObject('Check1', 'CheckBox')
.RemoveObject('Text1')
.CurrentControl="Check1"
.Check1.Caption=""
.Check1.Centered=.T. &&居中
.Sparse=.F. &&所有单元格
.Check1.Visible = .T.
ENDWITH