GridView用法未完成

版权声明： https://blog.csdn.net/eds124/article/details/86031336

Partial Class Root_Login
    Inherits System.Web.UI.Page

    Private sds As SqlDataSource = New SqlDataSource(Dao.ConnectionString, "select * from t_user")

    Protected Sub GridView1_PreRender(sender As Object, e As EventArgs) Handles GridView1.PreRender
        Me.GridView1.DataSource = sds
        Me.GridView1.DataBind()
    End Sub

    Protected Sub GridView1_Init(sender As Object, e As EventArgs) Handles GridView1.Init
        Me.GridView1.AllowPaging = True '开启分页
        Me.GridView1.AlternatingRowStyle.BackColor = Drawing.Color.AliceBlue '迭代行颜色
        Me.GridView1.AutoGenerateColumns = False '自动生成行关闭
        Me.GridView1.AutoGenerateDeleteButton = False '自动生成删除按钮关闭
        Me.GridView1.AutoGenerateEditButton = False
        Me.GridView1.AutoGenerateSelectButton = False
        Me.GridView1.Caption = "用户表" '标题
        Me.GridView1.CaptionAlign = TableCaptionAlign.Top '标题在上面
        
        Dim bf_username As BoundField = New BoundField() '绑定字段
        bf_username.DataField = "username"
        bf_username.HeaderText = "用户名"
        Me.GridView1.Columns.Add(bf_username) '添加GridView1

        Dim bf_userpass As BoundField = New BoundField()
        bf_userpass.DataField = "userpass"
        bf_userpass.HeaderText = "密码"
        Me.GridView1.Columns.Add(bf_userpass)

        Dim bf_usersmalldatetime As BoundField = New BoundField()
        bf_usersmalldatetime.DataField = "usersmalldatetime"
        bf_usersmalldatetime.HeaderText = "最后修改时间"
        Me.GridView1.Columns.Add(bf_usersmalldatetime)

        'Dim cf As CommandField = New CommandField()
        'cf.InsertText = "插入"
        'cf.SelectText = "选中"
        'cf.EditText = "修改"
        'cf.UpdateText = "保存"
        'cf.CancelText = "取消"
        'cf.DeleteText = "删除"
        'cf.ShowSelectButton = True
        'cf.ShowEditButton = True
        'cf.ShowDeleteButton = True
        'Me.GridView1.Columns.Add(cf)

        Dim cf_select As CommandField = New CommandField()
        cf_select.ShowSelectButton = True
        Me.GridView1.Columns.Add(cf_select)

        Dim cf_update As CommandField = New CommandField()
        cf_update.ShowEditButton = True
        Me.GridView1.Columns.Add(cf_update)

        Dim cf_delete As CommandField = New CommandField()
        cf_delete.ShowDeleteButton = True
        Me.GridView1.Columns.Add(cf_delete)

        Me.GridView1.EmptyDataText = "用户表为空" '空数据时显示
        Me.GridView1.GridLines = GridLines.Both '表格线横竖
        Me.GridView1.HeaderStyle.BackColor = Drawing.Color.AntiqueWhite '表格头颜色
        Me.GridView1.HorizontalAlign = HorizontalAlign.Center '
        Me.GridView1.PagerStyle.BackColor = Drawing.Color.Aqua '翻页颜色
        Me.GridView1.PageSize = 2 '每页显示几个
        Me.GridView1.RowStyle.BackColor = Drawing.Color.Aquamarine '行颜色
        Me.GridView1.SelectedRowStyle.BackColor = Drawing.Color.Azure '被选择行颜色
        'Me.GridView1.FooterRow.BackColor = Drawing.Color.Beige
    End Sub

    Protected Sub GridView1_RowEditing(sender As Object, e As GridViewEditEventArgs) Handles GridView1.RowEditing
        Me.GridView1.EditIndex = e.NewEditIndex
    End Sub

    Protected Sub GridView1_RowCancelingEdit(sender As Object, e As GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEdit
        Me.GridView1.EditIndex = -1
    End Sub
End Class