高分求助!vb.net中如何在DataGird中绑定一列checkbox控件

vb.net中如何在DataGird中绑定一列checkbox控件,或者是comboBox控件,请各位高手帮忙!(是vb.net中的winform,不是c#)

Private Sub setdgdDokyuStyle()
Dim lv_DataTable_Program As New DataTable
Dim lv_DataView_Program As DataView
Dim lv_DataColumn_Check As New DataColumn("选択", GetType(Boolean)) '选択
Dim lv_DataColumn_Num As New DataColumn("内容", GetType(String)) '内容
Dim ts As New DataGridTableStyle
Dim tc As DataGridTextBoxColumn
Dim tb As DataGridBoolColumn

dgdDokyu.CaptionVisible = False
lv_DataTable_Program.Columns.Clear()

lv_DataTable_Program.Columns.Add(lv_DataColumn_Check)
lv_DataTable_Program.Columns.Add(lv_DataColumn_Num)
lv_DataView_Program = New DataView(lv_DataTable_Program)
dgdDokyu.DataSource = lv_DataView_Program.Table
lv_DataView_Program.Table.DefaultView().AllowNew = False

'开始属性を设定
ts.MappingName = lv_DataTable_Program.TableName
ts.RowHeadersVisible = False

tb = New DataGridBoolColumn
With tb
.MappingName = "选択" '选択
.HeaderText = "选択" '选択
.Width = 50
.ReadOnly = False
.AllowNull = False
End With
ts.GridColumnStyles.Add(tb)

tc = New DataGridTextBoxColumn
With tc
.MappingName = "内容" '内容
.HeaderText = "内容" '内容
.Width = 686
.NullText = ""
.ReadOnly = False
End With
ts.GridColumnStyles.Add(tc)

dgdDokyu.TableStyles.Clear()
dgdDokyu.TableStyles.Add(ts)

End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答  2007-08-09
DataGird不是有一个模板列,在模板列里拖一个checkbox,或是comboBox,不就解决了吗,呵呵呵,快试试吧
第2个回答  2007-08-10
DataGrid的编辑模板列里面拖一个CHECKBOX进去就OK
相似回答