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

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

 

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

 

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

 

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

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

2、我的意思是，你先把空行移除，然后新增行，不是一样的效果么

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

 

 

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

 

msgbox(Filter) 看一下。

 

 选中填充代码

 

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

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