Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口中的Table一个小问题


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

主题：窗口中的Table一个小问题
帅哥哟，离线，有人找我吗？
goldenfont
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：389 积分：3892 威望：0 精华：0 注册：2016/4/25 17:36:00 		窗口中的Table一个小问题  发帖心情 Post By：2017/3/13 13:29:00 [只看该作者]

我在主窗口中加载了一个Normal的Table，一个SQLQuery的Table，然后根据Normal的Table里当前行自动筛选出符合的SQLQuery的Table，我把这个功能写在CurrentChanged事件里，打开的时候出错，说是找不到Tables(窗口_Table2),这个应该写在哪个函数里呢？写在click事件里没问题，但是刚打开的时候又起不到筛选的效果，只有点击后才符合要求，应该是感觉CurrentChanged事件发生时表还没有形成，所以会出错，但是咋解决呢？

窗口的CurrentChagned事件里写如下代码：

If e.Table.Current Is Nothing Then '如果Current为Nothing
    '没有选定行时执行的代码
Else
    '有选定行时执行的代码
    Dim tb As Table = Tables("窗口_Table2")
    Dim flt As String = "[产品编号] = '" & e.Table.Current("产品编号") & "'"
    tb.DataTable.Load
    tb.Filter = flt
End If
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111419 积分：567171 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/3/13 15:17:00 [只看该作者]

判断一下窗口是否打开

 

If e.Table.Current Is Nothing Then '如果Current为Nothing
    '没有选定行时执行的代码
Else
    '有选定行时执行的代码
    If Forms("窗口").open
        Dim tb As Table = Tables("窗口_Table2")
        Dim flt As String = "[产品编号] = '" & e.Table.Current("产品编号") & "'"
        tb.DataTable.Load
        tb.Filter = flt
    End If
End If

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询