此主题相关图片如下：360截图20141120162520631.jpg
Dim Builder As New ADOXBuilder
Builder.Open() '打开ADOXBuilder
With Builder.Tables("测评表")
For Each C As Col In Tables("测评表").ColS
If C.Name <> "姓名" AndAlso C.Name <>"PG" Then
.DeleteColumn(C.Name)
End If
Next
For Each DL As String In DataTables("表设置").GetValues("大类","大类 IS NOT NULL","_SORTKEY")
For Each FL As String In DataTables("表设置").GetValues("分类","分类 IS NOT NULL","_SORTKEY")
.AddColumn(dl & "_" & fl,ADOXType.Boolean)
Next
Next
End With
Builder.Close() '关闭ADOXBuilder
Syscmd.Project.Open(ProjectFile)
就是以上代码出了错误！！
加好友 
发短信
Post By：2014/11/20 16:25:00 [只看该作者]
