怎样使datagrid某一列显示为控件？例如为一个checkbox?

Question

目前有一列数据为Bool型的，怎样可以显示成为checkbox啊？
谢谢拉

Answer 1

应该不难,提供相关代码，仅供参考
Private Sub DBGrid1_Click()
If Not Combo1.Visible Then
Combo1.Visible = True
End If
End SubPrivate Sub DBGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
Debug.Print DBGrid1.Columns(DBGrid1.Col).Left,
Debug.Print DBGrid1.Columns(DBGrid1.Col).Top,
Debug.Print DBGrid1.Columns(DBGrid1.Col).Width,
Debug.Print DBGrid1.RowHeightCombo1.Width = DBGrid1.Columns(DBGrid1.Col).Width
Combo1.Left = DBGrid1.Left + DBGrid1.Columns(DBGrid1.Col).Left
Combo1.Top = DBGrid1.Top + DBGrid1.Row * DBGrid1.RowHeight + 225
End SubPrivate Sub Form_Load()
DBGrid1.RowHeight = Combo1.Height
Combo1.Visible = False
End Sub要运行程序，首先在form中加入一个DBGrig和一个combobox。

Answer 2

那么怎样才可以将combobox中选中的值传给datagrid控件呢，我用datagrid=combo总是提示此列只读啊！！！