Dim wldm As WinForm.TextBox = e.Form.Controls("TextBox1")
Dim wlmc As WinForm.TextBox = e.Form.Controls("TextBox2")
Dim ggxh As WinForm.TextBox = e.Form.Controls("TextBox3")

Dim filter As String
If wldm.Value <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = "物料代码 Like \'%" & wldm.Text & "%\' "
End If
If wlmc.Value <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = "物料名称 Like \'%" & wlmc.Text & "%\'"
End If
If ggxh.Value <> "" Then
    If filter > "" Then
        filter = filter & " And "
    End If
    filter = "规格型号 Like \'%" & ggxh.Text & "%\'"
End If

If Filter > "" Then
    Tables("添加物料_物料信息表").Filter = Filter
End If

可是我现在要三个条件都满足，如何改写？

此主题相关图片如下：1.jpg

2.想要打勾的部分，导入时新增了，我想导入在物料代码列，最后一行非空单元格内，而不是新增，原代码：

If Tables("添加物料_物料信息表").Rows.Count > 0 Then
   
    For Each r1 As Row In Tables("添加物料_物料信息表").GetCheckedRows
        Dim  r2 As Row = Tables("生产领料配置与报价表").AddNew
        r2("物料代码") = r1("物料代码")
           Next
    e.Form.close
End If

如何改写？

此主题相关图片如下：2.jpg


此主题相关图片如下：3.jpg

3.重复填充只能填充选择的那一列，能否多选几列，但几列的内容是不一样，然后一起往下填充？

问题有点多哈，谢谢各位大侠帮忙~~

 1、代码本来就是三个条件同时匹配的查询；

 2、先把空行删除，然后用你的代码新增进去；

 3、重复填充你可以单独做一个按钮，然后编写代码解决

 （综上所述，请上传一个例子。）

回复1：比如我筛选“扁钢”，型号号是“5”，型号是5的都会出来。

此主题相关图片如下：qq图片20140721111917.jpg

2.什么意思? 填充到后面的空白行,而不是新增? 如果没有这么多空白行呢?----没有行的时候再新增，有的情况下就先填充最后一个非空单元格。

3.我要往下填充，但是只能选一列往下填，我要选三列往下填就不行，我想一次必选3列填，有没有办法

型号的查询，你用 like，只要匹配出现5，就满足，有什么问题？

3、需要编写简单代码去解决。http://www.foxtable.com/help/topics/1665.htm

你的代码肯定没有错。你可以在你的代码最后加入

msgbox(Filter) 看一下。