在各位老师的指教下，使用以下代码，可以一次性导出带_Identify，_Locked和_SortKey（如果有的话）字段的access文件，在此基础上，加上主键后，可以作为外部数据源使用；在这里，向各位老师表示衷心感谢！！
For Each dt As DataTable In DataTables
If (DataTables( dt.Name ).basetable.Columns.Contains("_Sortkey")) = True
Dim colNames As String = "[_Identify],[_Locked],[_Sortkey]"
For Each c As DataCol In dt.DataCols
colNames += "," & c.Name
Next
Dim ex As New Exporter
ex.SourceTableName = dt.Name
ex.Fields = colNames
ex.filepath = "g:\Data\数据源.mdb"
ex.Export()
ElseIf (DataTables( dt.Name ).basetable.Columns.Contains("_Identify")) = True
Dim colNames As String = "[_Identify],[_Locked]"
For Each c As DataCol In dt.DataCols
colNames += "," & c.Name
Next
Dim ex As New Exporter
ex.SourceTableName = dt.Name
ex.Fields = colNames
ex.filepath = "g:\Data\数据源.mdb"
ex.Export()
Else
Dim ex As New Exporter
ex.SourceTableName = dt.Name
ex.filepath = "g:\Data\数据源.mdb"
ex.Export()
End If
Next
加好友 
发短信
Post By：2012/12/9 14:23:00 [只看该作者]
此主题相关图片如下：y.jpg