下列代码是在HyperLink控件做为DataGrid控件的绑定列,
Private Sub DgNewMenu_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DgNewMenu.ItemDataBound
Dim r As System.Web.UI.WebControls.HyperLink
Dim UnitID As Integer
Dim MenuID As Integer
UnitID = Request.QueryString("UnitID")
r = CType(e.Item.Cells(3).FindControl("HyNewMenu"), System.Web.UI.WebControls.HyperLink)
If e.Item.ItemType = ListItemType.AlternatingItem Or e.Item.ItemType = ListItemType.Item Then
MenuID = CType(e.Item.Cells(0).Text, Integer)
r.NavigateUrl = "FoodInfo.aspx?type=NewFood&UnitID=" & UnitID & "&MenuID=" & MenuID
r.Text = CType(e.Item.Cells(2).Text, String)
r.Target = "_blank"
End If
End Sub