Dim na = e.form.Controls("TextBox1").Text ‘’‘’‘’‘’‘’‘’‘表名
Dim nam = e.form.Controls("TextBox2").Text ‘’‘’‘’’‘’‘’列代码
Dim Builder As New ADOXBuilder("YB") '要指定数据源名称
Builder.Open()
With Builder.Tables(na)
.AddColumn(nam & "001" ,ADOXType.DateTime)
.AddColumn(nam & "002" ,ADOXType.String, 255)
.AddColumn(nam & "003" ,ADOXType.String, 255)
.AddColumn(nam & "004" ,ADOXType.String, 255)
.AddColumn(nam & "005" ,ADOXType.String, 255)
.AddColumn(nam & "006" ,ADOXType.String, 255)
End With
Builder.AddTable(na,True,True)
Builder.Close()
Syscmd.Project.Open(ProjectFile)
不知哪里出错了,增加不了