Private Sub bind(ByVal dt As DataTable)
dg_main.DataSource = dt
dg_main.DataBind()
End Sub
Private Sub btn_boundcolumn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_BoundColumn.Click
dg_main.AutoGenerateColumns = False
.......
Dim xzcolum As ButtonColumn = New ButtonColumn
xzcolum.HeaderText = "选择数据行"
xzcolum.Text = "选择"
xzcolum.CommandName = "Select"
dg_main.Columns.Add(xzcolum)
bind(DirectCast(Session("dataset"), DataSet).Tables("order"))
End Sub
'单击Datagrid中的选择按钮时,下面的事件回调函数不执行,为什么?
Private Sub dg_main_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dg_main.ItemCommand
Select Case e.CommandName
Case "Select"
dg_main.SelectedIndex = e.Item.ItemIndex
Case .....
End Select
bind(DirectCast(Session("dataset"), DataSet).Tables("order"))
End Sub