主题：[求助]关于查询的代码

Dim gys As WinForm.ComboBox = e.Form.Controls("供应商")
Dim clmc As WinForm.ComboBox = e.Form.Controls("材料名称")
Dim clbm As WinForm.TextBox = e.Form.Controls("材料编码")

Tables("大宗原材料").Filter="供货厂家 = '" & gys.Text & "' and 材料名称 like '*" & clmc.Text & "*' and 材料编码 like '*" & clbm.Text & "*'"

 

 

这段代码有错误吗？

 

我本意是三个窗口中的一个填写就可以查询，请问代码如何写？

Dim gys As String = e.Form.Controls("供应商").text

Dim clmc As String = e.Form.Controls("材料名称").text
Dim clbm As String = e.Form.Controls("材料编码").text
Dim Filter As String =""

if gys > ""

    Filter = "供货厂家 = '" & gys & "'"

end if

if clmc > ""

    if  Filter = ""

         Filter = "材料名称 like '*" & clmc & "*'"

    else

         Filter = " and 材料名称 like '*" & clmc & "*'"

    end if

end if

if clbm > ""

    if Filter = ""

        Filter = "材料编码 like '*" & clbm & "*'"

    else

        Filter = " and 材料编码 like '*" & clbm & "*'"

    end if

end if

Tables("大宗原材料").Filter= Filter

这样的代码。。。。。。。太繁杂了 建议楼主，用一个txtbox框来作查询 输入供应商也行，材料编码也行，材料编码也行 一个文本框搞定

一个文本框的类似这个：

http://www.foxtable.com/help/topics/1534.htm

 

 

 

不胜感激｀万分感谢

我是看着视频在学习，但是我不想用视频中的方式，结果自己搞不定｀

 

任意输入1～N个条件呢？

代码还可以简写，对新手来说理解就困难多了，所以，写的是楼主好理解的！

程总,我怎么同时输入两个文件,怎么就是代码错误?

Syntax error: Missing operand before 'And' operator.

用MessageBox.show() 显示一下你合成的条件，就知道问题所在了。

搞不定，就做个简单的例子发上来。