【IT168 技术文档】

　　我们都知道，将Data Grid的Data Source属性同Dataset相绑定，即可将数据表显示在Data Grid中，但不少初学者并不清楚：通过向Dataset中添加多个Data Table对象，每个Data Table对象装入一张表，再设定好关联，即可在Data Grid中显示多张关联表。

Imports System.Data.SqlClient
'引用SqlClient命名空间
Public Class Form1
Const Connection String As String = "integrated security=sspi;_
initial catalog=Pubs; data source=(local)"
'定义连接字符串
Private Sub Button1_Click(By Val sender As Object,_
By Val e As System.EventArgs) Handles Button1.Click
　Dim cn As New SqlConnection (Connection String)
　Cn. Open()
　'建立同数据库的连接
　Dim ds As New Dataset("Book Sales")
　'创建Dataset对象
　Dim Titles Table As New Data Table("Titles")
　ds.Tables.Add(Titles Table)
　'创建Data Table对象（Titles表），加入Dataset
　Dim GetTitlesString As String = "Select * From Titles"
　Dim da As New SqlDataAdapter(GetTitlesString, cn)
　da.Fill(Titles Table)
　'填充Data Table
　da.Dispose()
　Dim Sales Table As New Data Table("Sales")
　ds.Tables.Add(Sales Table)
　Dim GetSalesString As String = "Select * From Sales"
　da = New SqlDataAdapter(GetSalesString, cn)
　da.Fill(Sales Table)
　'创建并填充Sales表
　da.Dispose()
　cn.Close()
　Dim relation As New Data Relation("Title Sales",_
TitlesTable.Columns("title_id"),SalesTable.Columns("title_id"))
　ds.Relations.Add(relation)
　'根据title_id列建立两个表的关联
　DataGrid1.DataSource = ds
　'将DataGrid1绑定到Dataset对象（即ds）
End Sub
End Class

　　运行工程，会看到一个有加号按钮的视图。单击加号，窗体中出现装入的所有表名。如果查看Titles表，就会发现在每行的旁边有一个小加号按钮，点击加号，就可以查看其销售情况，如下图。

（主表情况）