专家坐堂-网页筛选满足条件情况下执行Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  网页筛选满足条件情况下执行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137159)

--  作者：巷弄太过弯曲
--  发布时间：2019/6/29 9:26:00
--  网页筛选满足条件情况下执行
老师，请问如图这样，怎么做到如果满足“单据编号”，“供应商”这两个条件，就过滤出对应条件数据行，如果没有对应条件的数据行，就出现提示没有该数据。我现在只能对应一条数据出现数据行，比如我选择单据编号，再去选择供应商过滤出来的条件就是只有对供应商条件作出反应，请问代码怎么修改

此主题相关图片如下：企业微信截图_20190629092428.png

If e.PostValues.ContainsKey("单据编号") Then
flt = "单据编号 = \'" & e.PostValues("单据编号") & "\'"
End If
If e.PostValues.ContainsKey("供应商") Then
flt = "供应商 = \'" & e.PostValues("供应商") & "\'"
End If
If e.PostValues.ContainsKey("单据状态") Then
flt = "单据状态 = \'" & e.PostValues("单据状态") & "\'"
End If
If e.PostValues.ContainsKey("制单人") Then
flt = "制单人 = \'" & e.PostValues("制单人") & "\'"
End If

--  作者：有点蓝
--  发布时间：2019/6/29 10:23:00
--

dim flt as string = "1=1"

If e.PostValues.ContainsKey("单据编号") Then
  flt = flt & " and 单据编号 = \'" & e.PostValues("单据编号") & "\'"
End If
If e.PostValues.ContainsKey("供应商") Then
flt = flt & " and 供应商 = \'" & e.PostValues("供应商") & "\'"
End If
If e.PostValues.ContainsKey("单据状态") Then
flt = flt & " and 单据状态 = \'" & e.PostValues("单据状态") & "\'"
End If
If e.PostValues.ContainsKey("制单人") Then
flt = flt & " and 制单人 = \'" & e.PostValues("制单人") & "\'"
End If

--  作者：巷弄太过弯曲
--  发布时间：2019/6/29 12:39:00
--
谢谢老师