Private Sub dgr1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgr1.ItemCommand
If e.CommandName = "edit" Then
Response.Redirect("cg_gs_input.aspx")
后台:
Private Sub dgr1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles dgr1.ItemCommand
If e.CommandName = "edit" Then
lblgh_id.Text = e.Item.Cells(1).Text
DataHandle.ReturnBind(pnlDetail, "cg_gh", "gh_id", lblgh_id.Text)
Ctrlhandle.Enabled(pnlDetail, False)
Ctrlhandle.ClickButton(pnlTop, ButtonName.imbsave)
viewstate("State") = "edit"
End If
End Sub