Foxtable(狐表)用户栏目专家坐堂 → 大侠帮忙看看这段代码有问题没有


  共有5015人关注过本帖树形打印复制链接

主题:大侠帮忙看看这段代码有问题没有

帅哥哟,离线,有人找我吗?
fatty_deng
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:62 积分:509 威望:0 精华:0 注册:2013/6/13 15:20:00
大侠帮忙看看这段代码有问题没有  发帖心情 Post By: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
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/5 10:23:00 [只看该作者]

 呃,如果单独打开没有问题的话。

 

 1、你去看看你的窗口设置,不要设置成自动打开;

 

 2、如果需要在项目启动的时候打开,就在afterOpenProject加入代码 Forms("录入").Open


 回到顶部