版权声明: 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