<%@ Page Language="VB" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<script runat="server">
Protected Sub GridView1_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.Init
Me.GridView1.Caption = "用户表" '表标题
Me.GridView1.EmptyDataText = "用户表数据为空" '数据表为空时显示的内容
Me.GridView1.EmptyDataRowStyle.BackColor = Drawing.Color.IndianRed '空表背景颜色
Me.GridView1.GridLines = GridLines.None '表格线(横,竖,两者都有,两者都无)
Me.GridView1.AllowPaging = True '启用分页
Me.GridView1.AutoGenerateDeleteButton = True '删除
Me.GridView1.AutoGenerateEditButton = True '编辑
Me.GridView1.AutoGenerateSelectButton = True '选择
Me.GridView1.HeaderStyle.BackColor = Drawing.Color.DarkRed '表头背景色
Me.GridView1.AlternatingRowStyle.BackColor = Drawing.Color.Red '迭代行背景色
Me.GridView1.RowStyle.BackColor = Drawing.Color.White '普通行背景色
Me.GridView1.SelectedRowStyle.BackColor = Drawing.Color.Green '被选择行的颜色
Me.GridView1.DataKeyNames = New String() {"p_userid"} '设置数据键名字
End Sub
Protected Sub GridView1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.PreRender
Me.GridView1.DataSource = New SqlDataSource("Data Source=.;Initial Catalog=mydata;User ID=sa;Password=Abcdefg1", "select * from t_user order by username asc") '表格控件数据源
Me.GridView1.DataBind() '绑定
End Sub
Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging
Me.GridView1.PageIndex = e.NewPageIndex '分页
Me.GridView1.EditIndex = -1 '取消编辑
End Sub
Protected Sub GridView1_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GridView1.RowEditing
Me.GridView1.EditIndex = e.NewEditIndex '编辑状态
End Sub
Protected Sub GridView1_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEdit
Me.GridView1.EditIndex = -1 '取消编辑
End Sub
Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting
Dim sds As SqlDataSource = New SqlDataSource("Data Source=.;Initial Catalog=mydata;User ID=sa;Password=Abcdefg1", "delete from t_user where p_userid = @p_userid") '数据源删除动作
Dim p_userid As String = Me.GridView1.DataKeys(e.RowIndex).Values("p_userid").ToString() '取得数据键名字
sds.SelectParameters.Add("p_userid", p_userid) '预处理
sds.Select(DataSourceSelectArguments.Empty) '执行删除操作
Me.GridView1.EditIndex = -1 '取消编辑
End Sub
Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating
Dim sds As SqlDataSource = New SqlDataSource("Data Source=.;Initial Catalog=mydata;User ID=sa;Password=Abcdefg1", "update t_user set username = @username, userpass = @userpass, a = @a, b = @b, c = @c, d = @d, e = @e, f = @f, g = @g, h = @h, i = @i, j = @j, k = @k, l = @l, m = @m, n = @n, o = @o, p = @p, q = @q, r = @r, s = @s, t = @t, u = @u, v = @v, w = @w, x = @x, y = @y, z = @z where p_userid = @p_userid")
Dim username As String = CType(Me.GridView1.Rows(e.RowIndex).Cells(1).Controls(0), TextBox).Text '获得所在行的用户名
Dim userpass As String = CType(Me.GridView1.Rows(e.RowIndex).Cells(2).Controls(0), TextBox).Text '获得所在行的密码
Dim p_userid As String = Me.GridView1.DataKeys(e.RowIndex).Values("p_userid").ToString() '获取数据键名字
sds.SelectParameters.Add("username", username) '预处理
sds.SelectParameters.Add("userpass", userpass) '预处理
sds.SelectParameters.Add("p_userid", p_userid) '预处理
For i As Integer = 97 To 122
sds.SelectParameters.Add(Convert.ToChar(i), CType(Me.GridView1.Rows(e.RowIndex).Cells(i - 94).Controls(0), CheckBox).Checked) '预处理
Next
sds.Select(DataSourceSelectArguments.Empty) '执行修改操作
Me.GridView1.EditIndex = -1 '取消编辑
End Sub
</script>
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title></title>
</head>
<body>
<form id="form1" runat="server">
<div>
<asp:GridView ID="GridView1" runat="server">
</asp:GridView>
</div>
</form>
</body>
</html>
最强gridview用法
最新推荐文章于 2021-01-29 08:23:32 发布