Foxtable(狐表)用户栏目专家坐堂 → 窗口筛选显示


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

主题:窗口筛选显示

美女呀,离线,留言给我吧!
朱女士
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:469 积分:3803 威望:0 精华:0 注册:2020/2/8 11:14:00
  发帖心情 Post By:2022/11/24 11:37:00 [只看该作者]

老师您好!
    我前天的问题解决了,调试的很顺利,但是我昨天换了个界面,加了个面板分区控件,今天又打开窗口后,扫码表的“条码编码”与清单表的“条码编码”不联动显示了,找了半天也没找到原因。
 
图片点击可在新窗口打开查看此主题相关图片如下:55581c80662416957d969bac5664628.jpg
图片点击可在新窗口打开查看
代码还是:

If e.Table.Current IsNot Nothing AndAlso Forms("员工扫码").Opened Then '如果窗口已经打开
    
    Dim filter As String = "清单条码编码='" & e.Table.Current("清单条码编码") & "'"
    
    Dim wz As Integer = Tables("ddqdb").FindRow(filter)
    
    If wz >= 0 Then
        Tables("ddqdb").Position = wz
    End If

 回到顶部
美女呀,离线,留言给我吧!
朱女士
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:469 积分:3803 威望:0 精华:0 注册:2020/2/8 11:14:00
  发帖心情 Post By:2022/11/24 12:06:00 [只看该作者]

老师您好!
    我前天的问题解决了,调试的很顺利,但是我昨天换了个界面,加了个面板分区控件,今天又打开窗口后,扫码表的“条码编码”与清单表的“条码编码”不联动显示了,找了半天也没找到原因。
 
图片点击可在新窗口打开查看此主题相关图片如下:55581c80662416957d969bac5664628.jpg
图片点击可在新窗口打开查看
代码还是:

If e.Table.Current IsNot Nothing AndAlso Forms("员工扫码").Opened Then '如果窗口已经打开
    
    Dim filter As String = "清单条码编码='" & e.Table.Current("清单条码编码") & "'"
    
    Dim wz As Integer = Tables("ddqdb").FindRow(filter)
    
    If wz >= 0 Then
        Tables("ddqdb").Position = wz
    End If


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