以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]打开窗口,报错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131552)

--  作者:湛江智
--  发布时间:2019/3/1 9:21:00
--  [求助]打开窗口,报错

打开窗口,报错原因?怎么处理?

 

 


图片点击可在新窗口打开查看此主题相关图片如下:打开窗口,报错原因?怎么处理?.jpg
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2019/3/1 9:26:00
--  
贴出你afterLoad事件的代码
--  作者:saumm
--  发布时间:2019/3/1 10:28:00
--  
先按照灾难恢复的处理方法:首先按住Ctrl键,然后打开出现错误的项目文件,直到项目文件被完全打开,再松开Ctrl键即可。

如果打开的过程中出现了登录窗口,先松开Ctrl键,选择以开发者身份登录,输入密码,然后重新按住Ctrl键,单击登录窗口的确定按钮,直到项目文件被完全打开,再松开Ctrl键。


再按有点钱说的做


--  作者:湛江智
--  发布时间:2019/3/1 14:35:00
--  回复:(有点甜)贴出你afterLoad事件的代码

 窗口afterload代码如下:

Tables("左侧导航窗口_Table1").ExtendLastCol = True


Dim r As Row = Tables("室内设计项目").Current
Tables("左侧导航窗口_Table1").Filter = "[项目编号] = \'" & r("项目编号") & "\'"



\'行高自动调节
Tables("左侧导航窗口_Table1").AutoSizeRows()



\'隐藏或禁用当前用户无权使用的按钮
If _UserGroup <> "项目管理办公室" Then
e.Form.Controls("有空").Visible = False
e.Form.Controls("没空").Visible = False
e.Form.Controls("下个任务").Visible = False
End If

        Tables("左侧导航窗口_Table1").Sort = "日期 DESC,创建时间 DESC,创建者"
Tables("左侧导航窗口_Table1").Position = 0

 Tables("左侧导航窗口_Table1").Select(0,0)

 

好像也是这个问题报错如下:



图片点击可在新窗口打开查看此主题相关图片如下:31.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2019/3/1 14:36:30编辑过]

--  作者:有点甜
--  发布时间:2019/3/1 15:09:00
--  

Tables("左侧导航窗口_Table1").Select(0,0)

 

改成

 

Tables("表A").Select(-1,0)