- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 这是啥错误？？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60239)
-- 发布时间：2014/11/20 16:25:00
-- [求助] 这是啥错误？？
此主题相关图片如下：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)
就是以上代码出了错误！！
-- 发布时间：2014/11/20 16:37:00
--
测试没有问题，具体请上传例子