DataGridView 同时显示两个表的结果集

  利用DataTable本身本身的个合并方法。

Dim conn As New SqlConnection
    Dim rs As New SqlDataAdapter
     Dim ds As New DataSet
 
    Private Function connect_db() As SqlConnection
        Dim constr As String
        constr = "Server=PC-201105311336\SQLEXPRESS;uid=sa;pwd=123456;database=jiaxiaoai"
        'rs.Fill(dataset, "student")
        conn = New SqlConnection(constr)
        conn.Open()
        connect_db = conn
    End Function



Private Sub 全部学生信息_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sql As String
        Dim dt1 As New DataTable
        Dim dt2 As New DataTable
       conn = connect_db()
        sql = "select * from student"
        rs = New SqlDataAdapter(sql, conn)
        rs.Fill(dt1) '填充表
       sql = "select * from sysname"
        rs = New SqlDataAdapter(sql, conn)
        rs.Fill(dt2)
        dt1.Merge(dt2)
        DataGridView1.DataSource = dt1 '将表中的数据显示到datagridView控件中，绑定数据
    End Sub