* 比如你的表是: TB(用户代号 C,用户名称 C) 等等
select 0 as 选择,用户代号,用户名称 from tb into cursor tmp_tb readwrite
THISFORM.Grid1.RECORDSOURCE = ''
THISFORM.Grid1.COLUMNCOUNT = -1
THISFORM.Grid1.RECORDSOURCE = "tmp_tb"
WITH Thisform.grid1.Columns[1]
.AddObject('check1','CheckBox')
&& 添加复选框
.CurrentControl = 'Check1'
&& 用复选框显示列内容
.Check1.Visible = .t.
&& 使复选框可见
.Check1.Caption = ''
&& 去掉复选框右边的文字 check1
.Sparse = .f.
&& 所有行均显示复选框
.Alignment = 2
.Width = 28
&& 列宽
ENDWITH
* 就可以了,你选择后,就和表绑定了