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

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

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

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

 

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

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

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

 

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

是想只要扁钢下的5，其他的名称内含5的不筛选出来

上传了例子，大家帮忙看下哈

1.就是刚说的筛选后，新增到最后一列非空单元格，定位不到非空单元格就新增‘

2.就是前面几例要一次性选定全部重复，谢谢各位大侠哈

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:昆山永燃技术部配置系统.foxdb

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

求新代码？谢谢各位大侠啦~~