file:///D:\w\user.aspx史上最强GridView后台绑定用法

最新推荐文章于 2024-04-04 09:21:01 发布

「已注销」

最新推荐文章于 2024-04-04 09:21:01 发布

阅读量217

点赞数

本文链接：https://blog.csdn.net/eds124/article/details/86185586

版权

<%@ 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>

「已注销」

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
file:///D:\w\user.aspx史上最强GridView后台绑定用法

&lt;%@ Page Language="VB" %&gt;&lt;!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"&gt;&lt;script runat="server"&gt;
复制链接

扫一扫