- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 之前整段代码测试得的好好的，咋就突然出现这个窗口了呢？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=60262)
-- 发布时间：2014/11/21 10:54:00
-- [求助] 之前整段代码测试得的好好的，咋就突然出现这个窗口了呢？
[求助] 之前整段代码测试得的好好的，咋就突然出现这个窗口了呢？
此主题相关图片如下：2x.jpg
此主题相关图片如下：360截图20141120162520631.jpg
[此贴子已经被作者于2014-11-21 10:57:04编辑过]
-- 发布时间：2014/11/21 10:58:00
--
写了什么代码？
-- 发布时间：2014/11/21 11:04:00
--
If DataTables("表设置").HasChanges Then
DataTables("表设置").Save
End If
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("大类","大类>\'\'","_SORTKEY")
For Each FL As String In DataTables("表设置").GetValues("分类","分类>\'\'","_SORTKEY")
.AddColumn(dl & "_" & fl,ADOXType.Boolean)
Next
Next
End With
Builder.Close() \'关闭ADOXBuilder
Forms("表设置").Close
Syscmd.Project.Open(ProjectFile)
Forms("主窗口").Open
Tables("测评表").AutoSizeCols
-- 发布时间：2014/11/21 11:05:00
--
做个例子发上来测试。
-- 发布时间：2014/11/21 11:21:00
--
因为经常用到测评，所以自己就编了个这个小东东！请大师指点！
[此贴子已经被作者于2014-11-21 11:53:45编辑过]
-- 发布时间：2014/11/21 11:38:00
--
版主测不测帮着看看？？？重启电脑后仍有这个错误！
-- 发布时间：2014/11/21 11:39:00
--
把测评表删除，重新建立。
-- 发布时间：2014/11/21 11:48:00
--
此主题相关图片如下：1.jpg
就是动态增加列名的时候会出错！！！咋搞的？？？？
-- 发布时间：2014/11/21 11:50:00
--
删除表，重新做一个表。
-- 发布时间：2014/11/21 11:53:00
--
这搞不懂是嘛原因！