如何实现同时自动获得所有数据表、表间关联的表名称和列名称? Post By:2013/3/14 16:19:00 [只看该作者]
自动获得所有数据表的表名称和列名称,代码如下:
For Each dt As DataTable In DataTables For Each dc As DataCol In dt.DataCols Dim dr As DataRow = DataTables("表列" ).Find( "表名 = '" & dt. Name & "' And 列名 = '" & dc.Name & "'") If dr Is Nothing Then dr = DataTables ("表列"). AddNew() dr("表名" ) = dt. Name dr("列名" ) = dc. Name End If Next Next