以文本方式查看主题

-  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)

--  作者:rophy0952
--  发布时间: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


上面的代码执行后,只能显示一行数据!请赐教,谢谢!

--  作者:rophy0952
--  发布时间:2014/7/28 18:31:00
--  
如图,
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140728181658.jpg
图片点击可在新窗口打开查看

--  作者:rophy0952
--  发布时间: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


--  作者:rophy0952
--  发布时间:2014/7/28 22:18:00
--  
好的,谢谢!