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

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

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

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

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

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

 选中填充代码

For i As Integer = CurrentTable.LeftCol To CurrentTable.RightCol
    For j As Integer = CurrentTable.TopRow + 1 To CurrentTable.BottomRow
        CurrentTable.Rows(j)(i) = CurrentTable.Rows(CurrentTable.TopRow)(i)
    Next
Next

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

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

1，你设置3个变量filter1,filter2,filter3,最后1and2and3.试试看2、最后一行的行号就是rows.count -1 ，最好之前判断一下改行物料代码列是不是null,有时候忘记按增加行了就惨了

3、略

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

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

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

    e.Form.close
End If