Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
MyAspxWeb.InnerText = "【孟宪会之精彩世界】之.NET开发者园地"
DataGrid1.Columns(0).HeaderText = "文章标题"
DataGrid1.Columns(1).HeaderText = "发布日期"
DataGrid1.Columns(0).HeaderStyle.HorizontalAlign = HorizontalAlign.Center
DataGrid1.Columns(1).HeaderStyle.HorizontalAlign = HorizontalAlign.Center
' 只为 Header 行添加宽度
DataGrid1.Columns(0).HeaderStyle.Width = System.Web.UI.WebControls.Unit.Percentage(72)
DataGrid1.Columns(1).HeaderStyle.Width = System.Web.UI.WebControls.Unit.Percentage(28)
DataGrid1.Style.Add("table-layout", "fixed")
intID = Request.QueryString("id")
If Not Page.IsPostBack Then
Data_Bind()
End If
End Sub
Function GridTableStyle(ByVal Obj As Object, ByVal DataGrid As DataGrid)
Dim MyCurrencyManager As CurrencyManager
Dim MyGridTableStyle As DataGridTableStyle
MyCurrencyManager = CType(Obj.BindingContext(Table), CurrencyManager)
MyGridTableStyle = New DataGridTableStyle(MyCurrencyManager)
DataGrid.TableStyles.Clear()
DataGrid.TableStyles.Add(MyGridTableStyle)
Dim ColStyle As GridColumnStylesCollection
ColStyle = DataGrid.TableStyles(0).GridColumnStyles
DataGrid.BorderStyle = BorderStyle.None
DataGrid.FlatMode = False
End Function
'宽度
Function GridColumnWidth(ByVal DataGrid As DataGrid, ByVal Column As Integer, ByVal Width As Integer)
DataGrid.TableStyles(0).GridColumnStyles(Column).Width = Width
End Function