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


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

主题:还是窗口筛选显示

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


加好友 发短信
等级:二尾狐 帖子:513 积分:4073 威望:0 精华:0 注册:2020/2/8 11:14:00
还是窗口筛选显示  发帖心情 Post By:2022/11/24 14:04: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




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


加好友 发短信
等级:二尾狐 帖子:513 积分:4073 威望:0 精华:0 注册:2020/2/8 11:14:00
  发帖心情 Post By:2022/11/24 14:18:00 [显示全部帖子]

我怎么上传数据表呢

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


加好友 发短信
等级:二尾狐 帖子:513 积分:4073 威望:0 精华:0 注册:2020/2/8 11:14:00
  发帖心情 Post By:2022/11/24 14:27:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:37e446654c1b4ab5ba82950bf22a230.jpg
图片点击可在新窗口打开查看
这是两个表的数据图片,我不会上传数据表。您看时 ,随便模拟两个数据就行。

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


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


加好友 发短信
等级:二尾狐 帖子:513 积分:4073 威望:0 精华:0 注册:2020/2/8 11:14:00
  发帖心情 Post By:2022/11/24 14:32:00 [显示全部帖子]

上面我拍的第二张图片,没拍到两个表有相同的条码编码。下面这张有。


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

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


加好友 发短信
等级:二尾狐 帖子:513 积分:4073 威望:0 精华:0 注册:2020/2/8 11:14:00
  发帖心情 Post By:2022/11/24 14:40:00 [显示全部帖子]

窗口确实绑定字段了

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


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


加好友 发短信
等级:二尾狐 帖子:513 积分:4073 威望:0 精华:0 注册:2020/2/8 11:14:00
  发帖心情 Post By:2022/11/24 15:02:00 [显示全部帖子]

测试了,扫描表的CurrentChanged写的代码,定位指针没定在清单表里。再就是,如果将扫描表定义为主表,影响指针定位吗?
If e.Table.Current IsNot Nothing AndAlso Forms("员工扫码").Opened Then '如果窗口已经打开
    
    Dim filter As String = "条码编码='" & e.Table.Current("条码编码") & "'"
    
    Dim wz As Integer = Tables("清单表").FindRow(filter)
    
    If wz >= 0 Then
        Tables("清单表").Position = wz
    End If


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


加好友 发短信
等级:二尾狐 帖子:513 积分:4073 威望:0 精华:0 注册:2020/2/8 11:14:00
  发帖心情 Post By:2022/11/24 15:22:00 [显示全部帖子]

应该是这个原因,我原来添加的是表控件,可是我现在的界面是显示一条记录把字段名拽到窗口了,就是说我绑定字段了,这个怎么设置副本啊?

 回到顶部