http://www.koolsoft.com/DataGridCheckboxes.aspx 主要看这里 Private Sub DataGrid1_ItemCreated(ByVal sender As Object, _ ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemCreated If (e.Item.ItemType = ListItemType.Item) Or (e.Item.ItemType = ListItemType.AlternatingItem) Then AddCheckbox(e) End If End Sub Private Sub AddCheckbox(ByVal e As DataGridItemEventArgs) Dim cb As New CheckBox Dim cell As TableCell = e.Item.Cells(0) cb.EnableViewState = True cb.AutoPostBack = True cb.ID = e.Item.ItemIndex cell.HorizontalAlign = HorizontalAlign.Right AddHandler cb.CheckedChanged, AddressOf OnCheckedChangedEvent cell.Controls.Add(cb) End Sub
{
//数据绑定要在里面!}
主要看这里
Private Sub DataGrid1_ItemCreated(ByVal sender As Object, _
ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DataGrid1.ItemCreated If (e.Item.ItemType = ListItemType.Item) Or (e.Item.ItemType = ListItemType.AlternatingItem) Then
AddCheckbox(e)
End If
End Sub Private Sub AddCheckbox(ByVal e As DataGridItemEventArgs) Dim cb As New CheckBox
Dim cell As TableCell = e.Item.Cells(0)
cb.EnableViewState = True
cb.AutoPostBack = True
cb.ID = e.Item.ItemIndex
cell.HorizontalAlign = HorizontalAlign.Right
AddHandler cb.CheckedChanged, AddressOf OnCheckedChangedEvent
cell.Controls.Add(cb) End Sub