- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何筛选实现这种载入？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=54448)
-- 发布时间：2014/7/28 18:30:00
-- [求助]如何筛选实现这种载入？
希望在载入生产主表的时候，按照生产主表中的“工序”列的内容，进行载入。
1.工序列为“蒸镀”的不载入；
2.工序列为“蒸镀+分切”的，载入未分切重量 〉0且分切已派工＝false的；
3.工序列为“分切”的，载入分切已派工＝false的。
请问如何将符合以上条件的数据同时载入？如截图中红框的两条记录。
已经窗口在afterload中写入代码：
For Each r As Row In Tables("引入生产单_生产主表").Rows
Dim filter1 As String
Dim filter2 As String
If r("工序") = "蒸镀+分切" Then
filter1 ="工序 = \'蒸镀+分切\' and 未分切重量 > 0 and 分切已派工 = false"
End If
If r("工序") = "分切" Then
filter2 = "工序 = \'分切\' And 分切已派工 = false"
End If
Tables("引入生产单_生产主表").filter = filter1 & filter2
Next
上面的代码执行后，只能显示一行数据！请赐教，谢谢！
-- 发布时间：2014/7/28 18:31:00
--
如图，
此主题相关图片如下：qq截图20140728181658.jpg
-- 发布时间：2014/7/28 18:34:00
--
数据
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:问题.foxdb |
-- 发布时间：2014/7/28 19:16:00
--
代码，你想复杂了
Dim filter As String
filter ="工序 = \'蒸镀+分切\' and 未分切重量 > 0 and 分切已派工 = false or 工序 = \'分切\' And 分切已派工 = false"
Tables("引入生产单_生产主表").filter = filter
Tables("引入生产单_生产主表").sort = "交货日期"
Tables("引入生产单_生产主表").ShowCheckBox = True
-- 发布时间：2014/7/28 22:18:00
--
好的，谢谢！