vb 6.0 TDBGrid列改为CheckBox,怎么打钩

Question

VB 6.0 TDBGrid 把某列设置成CheckBox
如：确认  录入人
 口   张三
 口   
 口   李四按查询按钮时：SQL = SELECT 录入人 FROM 表1 
Set RS = g_CUST.objdb.querySQL(SQL, 1)
TDBGrid1.DataSource = RS怎么当某一行有录入人时，那一行的确认就打钩，没有时就为空 试了很多方法都不行，求前辈指教急~~~~~~~~~~~~

Answer 1

SQL = "SELECT CASE WHEN 录入人 IS NULL THEN 0 ELSE 1 END AS 确认,录入人 FROM 表1"

Answer 2

不记得　TDBGrid 的 CheckBox 选中应该是 1 还是 -1。
你自己试试不就知道了。