以文本方式查看主题 - 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) |
-- 作者:fatty_deng -- 发布时间: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 单独加载这个窗口的时候没问题,但是重新打开项目时却提示:
|
-- 作者:有点甜 -- 发布时间:2014/10/5 10:23:00 -- 呃,如果单独打开没有问题的话。
1、你去看看你的窗口设置,不要设置成自动打开;
2、如果需要在项目启动的时候打开,就在afterOpenProject加入代码 Forms("录入").Open |