如题，想用表生成外部数据库结构，都不行？还有打开以前开发文件，代码编辑器代码总是显示不全，没有进入编辑器预览是全的，是怎么回事？重新复制都不行
以下是我写的：
Dim Builder As New ADOXBuilder("sjk")
Builder.Open()
Dim tbl As ADOXTable = Builder.NewTable("订单")
For Each dr As DataRow In DataTables("表结构库").DataRows
tbl.AddColumn(dr("列名称"), dr("数据类型"))
Next
Builder.AddTable(tbl,True,True)
Builder.Close()
syscmd.Project.Open(ProjectFile)
或者：
Dim Builder As New ADOXBuilder("sjk")
Builder.Open()
Dim tbl As ADOXTable = Builder.NewTable("订单")
For Each dr As String() In DataTables("表结构库").GetValues("列名称|数据类型|长度")
tbl.AddColumn(dr(0),dr(1),dr(2))
Next
Builder.AddTable(tbl,True,True)
Builder.Close()
syscmd.Project.Open(ProjectFile)
此主题相关图片如下：qq截图20190616085217.png
加好友 
发短信
Post By：2019/6/16 9:09:00 [只看该作者]
