vb 6.0 TDBGrid列改为CheckBox,如何打钩

vb 6.0 TDBGrid列改为CheckBox,怎么打钩
VB 6.0 TDBGrid 把某列设置成CheckBox
如：

确认  录入人
 口   张三
 口   
 口   李四

按查询按钮时：

SQL = SELECT 录入人 FROM 表1 
Set RS = g_CUST.objdb.querySQL(SQL, 1)
TDBGrid1.DataSource = RS

怎么当某一行有录入人时，那一行的确认就打钩，没有时就为空 

试了很多方法都不行，求前辈指教

急~~~~~~~~~~~~
[最优解释]

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

[其他解释]
当出现1的时候会制动的打钩吗？？？

引用:

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

[其他解释]
不记得　TDBGrid 的 CheckBox 选中应该是 1 还是 -1。
你自己试试不就知道了。

[其他解释]
谢谢前辈啊~~
是0和1~~~

引用:

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

查看更多 下一篇