救急！！！如何在DBGrid中显示复选框？

[linchuanzai]

如何让数据库中的Boolean型数据在数据感知控件中显示为复选框，就像Access 那样可以定义数据的现实方式，而且可以直接修改数据。我听说有些控件可以直接实现这种功能，那位兄弟如果有这样的控件给我一份，不慎感激！

我的e-mail址：[e-mail]

[linchuanzai]

why ? nobody responses !

[of123]

不妨利用网格中的按钮来实现。例：
下例中sex（boolean类型）在DBGrid中显示为“男”、“女”。通过网格中的按钮切换。

首先在属性窗口的列标签页上，把显示Boolean值的一列勾上“按钮”一项。

Private Sub Form_Load()
strSQL = "select cardid,name,userid,iif(sex,'男','女') as ssex,sex from users"
Set rs = db.OpenRecordset(strSQL)
Set Data1.Recordset = rs
End Sub


Private Sub DBGrid1_ButtonClick(ByVal ColIndex As Integer)
Dim mybm
mybm = DBGrid1.Bookmark
rs.Edit
rs!sex = Not rs!sex
rs.Update
rs.Requery
DBGrid1.Bookmark = mybm
DBGrid1.Col = 3 'boolean所在列
End Sub

[linchuanzai]

可是我的要求用复选框来显示，怎么办？

[Dour]

"程序员大本营"有例可参考