Foxtable(狐表)用户栏目专家坐堂 → 导航快速切换时偶尔会报错


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

主题:导航快速切换时偶尔会报错

帅哥,在线噢!
qaz17909
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:766 积分:8756 威望:0 精华:0 注册:2017/1/26 14:38:00
  发帖心情 Post By:2018/12/7 17:40:00 [只看该作者]

老师帮我看下,当用导航在表A和表B之间快速切换的时候,会报错。

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


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

请正确上传项目测试

 

http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 


 回到顶部
帅哥,在线噢!
qaz17909
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:766 积分:8756 威望:0 精华:0 注册:2017/1/26 14:38:00
  发帖心情 Post By:2018/12/7 19:06:00 [只看该作者]


当用导航在表A和表B之间快速切换的时候,会报错。
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:快速切换.rar


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


加好友 发短信
等级:超级版主 帖子:105958 积分:538865 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/12/7 20:38:00 [只看该作者]

限制一下不能点击过快

static d As Date = Date.now
If (Date.Now - d).TotalMilliseconds < 500 Then
    Return
End If
d = Date.now
Select Case e.Node.name
    Case "表A"
        Forms("表A").open()
        MainTable = Tables("报告信息")
        Dim Filter As String = "报告进度 = '业务受理'"
        DataTables("表A_Table1").LoadFilter = Filter
        DataTables("表A_Table1").Load
    Case "表B"
        Forms("表B").open()
        MainTable = Tables("报告信息")
        Dim Filter As String = "报告进度 = '报告已批准'"
        DataTables("表B_Table1").LoadFilter = Filter
        DataTables("表B_Table1").Load
End Select

 回到顶部
帅哥,在线噢!
qaz17909
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:766 积分:8756 威望:0 精华:0 注册:2017/1/26 14:38:00
  发帖心情 Post By:2018/12/9 13:57:00 [只看该作者]

可以了,但是新出来一个问题,即第一次打开的页面必须双击打开。

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


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

以下是引用qaz17909在2018/12/9 13:57:00的发言:
可以了,但是新出来一个问题,即第一次打开的页面必须双击打开。

 

static d As Date = Date.now

 

改成

 

static d As Date = Nothing


 回到顶部
总数 16 上一页 1 2