主题：求助多条件筛选等几个问题

1.多条件筛选问题.

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.重复填充只能填充选择的那一列，能否多选几列，但几列的内容是不一样，然后一起往下填充？

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