广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

作者： unknow

n Overloads Public Overridable Function Add() As DataTable

n Overloads Public Overridable Sub Add(ByVal table As DataTable)

n Overloads Public Overridable Function Add(ByVal name As String) As DataTable

n Public Sub AddRange(ByVal tables() As DataTable)

参数

1. table 要添加的 DataTable 对象。

2. name 要赋予已创建的 DataTable 的名称。

3. tables 要添加到集合中的 DataTable 对象的数组。



DataTableCollection 包含特定 DataSet 的所有 DataTable 对象。若要访问 DataSet 的 DataTableCollection，请使用 Tables 属性。

DataTableCollection 使用诸如 Add、Clear 和 Remove 之类的方法管理集合中的项目。

使用 Contains 方法确定集合中是否有特定表（由索引或名称指定）。

若要从一个表浏览到另一个表，请使用 DataTable 的 ChildRelations 或 ParentRelations 属性来访问它的 DataRelation 对象的集合。还可使用 Relations 属性浏览给定的 DataSet 集合中 DataTables 的父/子关系。



示例

Private Sub AddTable()

Dim dSet As DataSet= CType(DataGrid1.DataSource, DataSet)

Dim dt As DataTable



dt = dSet.Tables.Add("myNewTable")

MessageBox.Show(dt.TableName)

MessageBox.Show(dSet.Tables.Count.ToString() & " tables")



Dim i As Integer

For i = 0 to 2

dSet.Tables.Add()

Next i

MessageBox.Show(dSet.Tables.Count.ToString() & " tables")



Dim tables As DataTableCollection = CType(DataGrid1.DataSource, DataSet).Tables

tables.Add(New DataTable)

MessageBox.Show(dSet.Tables.Count.ToString() & " tables")



Dim t As DataTable

Dim r As DataRow

Dim c As DataColumn

For Each t In dSet.Tables

Console.WriteLine(t.TableName)

For Each r In t.Rows

For Each c in t.Columns

If Not (r(c) Is Nothing) Then

Console.WriteLine(r(c))

End If

Next

Next

Next



Dim t1 As DataTable = New DataTable("Customers" )

t1.Columns.Add("customerId", Type.GetType("System.Int32")).AutoIncrement = True

t1.Columns.Add("name", Type.GetType("System.String"))

t1.PrimaryKey = New DataColumn() { t1.Columns("customerId") }



Dim t2 As DataTable = New DataTable("Orders" )

t2.Columns.Add("orderId", Type.GetType("System.Int32")).AutoIncrement = True

t2.Columns.Add("customerId", Type.GetType("System.Int32"))

t2.Columns.Add("amount", Type.GetType("System.Double"))

t2.PrimaryKey = New DataColumn() { t2.Columns("orderId") }



dSet.Tables.AddRange( New DataTable() {t1, t2} )



For Each t In dSet.Tables

Console.WriteLine(t.TableName )

For Each c In t.Columns

Console.Write("{0}" & vbTab, c.ColumnName)

Next

Console.WriteLine()

Next

MessageBox.Show(dSet.Tables.Count.ToString() & " tables")

End Sub