Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not IsPostBack Then
FillDataGrid()
End If
End Sub
Public Sub FillDataGrid()
Dim cnn As SqlConnection = New SqlConnection("server=sha-vbdc-01;database=pubs;Integrated Security=SSPI")
Dim sql As String
'sql = "select * from authors"
sql = "select *, 'au_id=' + au_id + '&' + 'au_fname=' + au_fname details from authors"
Dim cmd As SqlDataAdapter = New SqlDataAdapter(sql, cnn)
Dim ds As DataSet = New DataSet()
cmd.Fill(ds, "Authors")
DataGrid1.DataSource = ds
DataGrid1.DataMember = "Authors"
DataGrid1.DataBind()
End Sub
请注意上面的SQL语句,它构成一个details字段与HyperLinkColumn绑定。