Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口打开事件的问题


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

主题：窗口打开事件的问题
帅哥，在线噢！
有点蓝
 小大  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106035 积分：539268 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/30 12:13:00 [只看该作者]

副表使用筛选，不要使用加载即可

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


加好友 发短信
等级：五尾狐 帖子：1060 积分：7009 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2020/12/30 12:16:00 [只看该作者]

还是有问题，把原来一张分为二张操作，正副表分二张表，如原正表是表A，原副表为表B，项目打开后，从表“表A”按条件，将符合条件的数据导入表B，这种方法，正表是表A的数据没问题，而副表为表B的数据有问题，导入数据会缺失，跟上面方法，不用项目打开后事件的代码，在单个窗口实现不会有问题。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106035 积分：539268 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/30 13:32:00 [只看该作者]

贴出具体代码说明问题

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


加好友 发短信
等级：五尾狐 帖子：1060 积分：7009 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2020/12/30 15:31:00 [只看该作者]

Dim dr As DataRow = DataTables("库存表").Find("保质情况 <>'未过期'")
If dr IsNot Nothing Then
    MessageBox.Show("有产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("库存表").Filter = ("保质情况<>'未过期'")
   
    Forms("导入").Open()
End If


我测试几种方法，主要是上面代码问题，
1，上面代码是筛选“"库存表"里"保质情况 <>'未过期'"，所以正副表，或把副表换另一表如表A，正表与副表或表A都显示”未过期'，是已执行筛选，而不是检测，不做筛选显示。
2，如何将上面代码改成，检测到或发现（不做筛选显示），"库存表"里"保质情况 <>'未过期'"，执行弹出窗
 回到顶部
帅哥，在线噢！
有点蓝
 小大  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106035 积分：539268 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/30 16:07:00 [只看该作者]

意思是导入窗口里的副本显示"保质情况 <>'未过期'"的数据？

导入窗口afterload
Tables("导入_table1").Filter = "保质情况<>'未过期'"
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1060 积分：7009 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2020/12/30 17:47:00 [只看该作者]

不是，那个我知道，我是想如何把下面改
Dim dr As DataRow = DataTables("库存表").Find("保质情况 <>'未过期'")
If dr IsNot Nothing Then
    MessageBox.Show("有产品即将到期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Tables("库存表").Filter = ("保质情况<>'未过期'")
   
    Forms("导入").Open()
End If
这个代码项目重启就执行，对库存表正表进行筛选显示，把库存表正表原显示所数据，按"保质情况 <>'未过期'"给它显示，真实需求，让上面代码执行检测或发现有"保质情况 <>'未过期'"的记录，就执行弹出窗，

 就象注册一样，项目启动查找库有没有这个匹配的用户，没就退出，有就是下一步，不是向上面把筛选显示
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1060 积分：7009 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：2020/12/30 17:47:00 [只看该作者]

查找功能，不是筛选显示功能，

 回到顶部
帅哥，在线噢！
有点蓝
 小大  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106035 积分：539268 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/12/31 8:33:00 [只看该作者]

既然不想筛选就把筛选代码去掉呀
Tables("库存表").Filter = ("保质情况<>'未过期'")
 回到顶部
总数 28 上一页 1 2 3
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询