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


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

主题：导航快速切换时偶尔会报错
帅哥哟，离线，有人找我吗？
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/25 11:23:00 [显示全部帖子]

试试

Select Case e.Node.Text
    Case "报告发送"
        If DataTables.Contains("报告信息") = False Then
            DataTables.Load("报告信息")
            Application.DoEvents()
        End If
        MainTable = Tables("报告信息")
        If Forms("报告发送").Opened = False Then
            Forms("报告发送").open()
            Application.DoEvents()
        End If
        If Forms("报告发送").Opened Then
            Dim Filter As String = "[报告进度] = '报告已批准' AND [已打印] = 1 AND [已发送] = 0"
            With DataTables("报告发送_Table1")
                .LoadFilter = ""
                .LoadFilter = Filter
                .LoadTop = 50
                .LoadPage = 0
                .Loadover = "报告编号"
                .Load
                Forms("报告发送").Controls("TextBox页数页码").text = "1/" & DataTables("报告发送_Table1").Totalpages
            End With
            Tables("报告发送_Table1").AutoSizeCols()
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/25 14:22:00 [显示全部帖子]

窗口的AfterLoad代码呢

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/10/25 15:51:00 [显示全部帖子]

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm

看看运行到哪一句代码出错
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110581 积分：562801 威望：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 5 次数据查询