主题：分享：动态新建外部数据表并设置主键（新增SQL表）

Tables("项目总表").Filter = "[表名] = '" & e.Form.Controls("ComboBox1").Value & "'"
Dim s,s1 As String
Dim scm as New SQLCommand
scm.ConnectionName  = "xc"
Dim t as Table = Tables("项目总表")
s = e.Form.Controls("ComboBox1").Value
if GetTableNamesFromConnection("xc").Contains(s)
    MessageBox.Show(s & " 表已经存在,不能创建!")
    Return
End If
For Each r as Row in t.Rows
    s1 = s1 & "["& r("列名") &"] " & "  " & r("列类") & "," & Chr(13) & Chr(10)
Next
scm.CommandText = "CREATE TABLE " & s & Chr(13) & Chr(10)
scm.CommandText = scm.CommandText & "(" & s1 & "PRIMARY KEY ([" & Tables("项目总表")(0,"列名") & "]))"
MessageBox.Show(scm.CommandText)
scm.ExecuteNonQuery