在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 SqlClient.SqlConnection() conn.ConnectionString = "data source=sqlserver; initial catalog=TRMS; user id=code; password=code" Dim cmd As New SqlClient.SqlCommand() cmd.Connection = conn cmd.CommandText = "select * from CMNASN" Dim dt As New DataTable() Dim ds As New DataSet() Dim da As New SqlClient.SqlDataAdapter() da.SelectCommand = cmd da.Fill(dt) DataGrid1.DataSource = dt Dim dt2 As New DataTable() dt2 = CType(DataGrid1.DataSource, DataTable) DataGrid2.DataSource = dt2 DataGrid2.DataBind() DataGrid1.DataBind() End If End Sub
你看看帮助文档,就明白了。
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 SqlClient.SqlConnection()
conn.ConnectionString = "data source=sqlserver; initial catalog=TRMS; user id=code; password=code"
Dim cmd As New SqlClient.SqlCommand()
cmd.Connection = conn
cmd.CommandText = "select * from CMNASN"
Dim dt As New DataTable() Dim ds As New DataSet()
Dim da As New SqlClient.SqlDataAdapter()
da.SelectCommand = cmd
da.Fill(dt) DataGrid1.DataSource = dt Dim dt2 As New DataTable()
dt2 = CType(DataGrid1.DataSource, DataTable)
DataGrid2.DataSource = dt2
DataGrid2.DataBind() DataGrid1.DataBind()
End If
End Sub