如:再HTML中
<asp:DataGrid id="DataGrid1" style="Z-INDEX: 101; LEFT: 24px; POSITION: absolute; TOP: 24px" runat="server" AutoGenerateColumns="False">
<Columns>
<asp:HyperLinkColumn DataNavigateUrlField="combine" DataNavigateUrlFormatString="WebForm2.aspx?{0}" DataTextField="CategoryName" />
</Columns>
</asp:DataGrid>
在CodeBehind中:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
Dim conn As New SqlConnection("server=localhost;user id=sa;password=ycm119;database=Northwind;")
Dim dad As New SqlDataAdapter("Select CategoryID,CategoryName from Categories", conn)
Dim dst As New DataSet
dad.Fill(dst, "Categories")
Dim dcol As New DataColumn("combine")
dcol.Expression = "'id='+CategoryID+'&name='+CategoryName"
dst.Tables("Categories").Columns.Add(dcol)
DataGrid1.DataSource = dst.Tables("Categories")
DataGrid1.DataBind()
End If
End Sub
<asp:DataGrid id="DataGrid1" style="Z-INDEX: 101; LEFT: 24px; POSITION: absolute; TOP: 24px" runat="server" AutoGenerateColumns="False">
<Columns>
<asp:HyperLinkColumn DataNavigateUrlField="combine" DataNavigateUrlFormatString="WebForm2.aspx?{0}" DataTextField="CategoryName" />
</Columns>
</asp:DataGrid>
在CodeBehind中:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
Dim conn As New SqlConnection("server=localhost;user id=sa;password=ycm119;database=Northwind;")
Dim dad As New SqlDataAdapter("Select CategoryID,CategoryName from Categories", conn)
Dim dst As New DataSet
dad.Fill(dst, "Categories")
Dim dcol As New DataColumn("combine")
dcol.Expression = "'id='+CategoryID+'&name='+CategoryName"
dst.Tables("Categories").Columns.Add(dcol)
DataGrid1.DataSource = dst.Tables("Categories")
DataGrid1.DataBind()
End If
End Sub
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货