主题：[分享] 动态创建表

刚学做的，供大家参考。

 

“列类型”列采用了数据字典，有兴趣可以一看。

 

本示例暂时不支持“高精度小数型”。

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:动态创建表.table

 

做了一个示例，发现了诸多问题，哈，很值。

 

这个简单的，改成这样就可以了。

 

Dim Name As String = e.Form.Controls("ComboBox1").Value
If Name = "" Then
    MessageBox.Show("表名称不能为空!")
    Return
End If
For Each dt As datatable In DataTables
    If dt.Name.Contains(Name) Then
        MessageBox.Show(Name & " 表已经存在,不能创建!")
        Return
    End If
Next
If DataTables("基础设置").GetComboListString("列类型").Contains("10") Then
    MessageBox.Show("sorry 高精度小数型暂时不可用!")
    Return
End If
DataTables("基础设置").Save
Dim Builder As New ADOXBuilder
Builder.Open()
Dim tbl As ADOXTable = Builder.NewTable(Name)
For Each dr As DataRow In DataTables("基础设置").DataRows
    If dr("表名") = Name Then
        If dr("列类型") = 0 Then
            tbl.AddColumn(dr("列名"),dr("列类型"),dr("字符长度"))
        Else
            tbl.AddColumn(dr("列名"),dr("列类型"))
        End If
    End If
Next
Builder.AddTable(tbl)
Builder.Close()
syscmd.Project.Open(ProjectFile)
MainTable = Tables(Name)

 

好象没有这样的方法。