- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 大侠帮忙看看这段代码有问题没有 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57820)
-- 发布时间：2014/10/5 10:16:00
-- 大侠帮忙看看这段代码有问题没有
我单独运行加载的时候没有问题，怎么重新打开项目的时候却提示错误？
Dim tr As WinForm.TreeView = e.Form.Controls("结构部位")
tr.BuildTree("现场影像资料收集数据结构表", "单位工程|分部工程|单元工程")
Tables("影像资料汇总表").Cols("日期").AllowEdit=False
Tables("影像资料汇总表").Cols("编号").AllowEdit=False
Tables("影像资料汇总表").Cols("资料内容概述").AllowEdit=False
Tables("影像资料汇总表").Cols("提交人").AllowEdit=False
Tables("影像资料汇总表").Cols("部位编号").AllowEdit=False
Tables("影像资料汇总表").Cols("资料内容").AllowEdit=False
Tables("影像资料汇总表").Cols("资料内容").Visible=False
Tables("影像资料汇总表").Cols("资料内容概述").Visible=False
Dim fl As WinForm.FileManager = Tables("影像资料汇总表").Cols("资料内容").FileManager
fl.DeleteCommand.Visible = False
fl.ClearCommand.Visible = False
fl.AddFolderCommand.visible=False
单独加载这个窗口的时候没问题，但是重新打开项目时却提示：
此主题相关图片如下：无标题.jpg
-- 发布时间：2014/10/5 10:23:00
--
呃，如果单独打开没有问题的话。
1、你去看看你的窗口设置，不要设置成自动打开；
2、如果需要在项目启动的时候打开，就在afterOpenProject加入代码 Forms("录入").Open