主题：双表条件筛选，感谢BIN老师甜老师指点，代码不报错了，但筛选不出来。

晕，甜老师，还是有语法错误，还是'and' 附近，今天麻烦您了，早点休息，明天再帮我看看吧。要不我把数据源转换成内部再给您传一次项目上来？

Dim Filter As String = "1=1"

With e.Form.Controls("DateTimePicker1")

If .Value IsNot Nothing Then
        Filter = Filter & " and 第六列 >= '" & .Value & "'"
    End If
End With
With e.Form.Controls("DateTimePicker2")
    If .Value IsNot Nothing Then
        Filter = Filter & " and 第六列 <= '" & .Value & "'"
    End If
End With
With e.Form.Controls("combobox1")
    If .Value IsNot Nothing Then
        Filter = " and 第2列 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("combobox2")
    If .Value IsNot Nothing Then
        Filter = Filter & " and 第1列 = '" & .Value & "'"
    End If
End With

DataTables("表A").LoadFilter = "第4列 not in (select isnull(第七列, '') from {表B} where " & filter & ")"

DataTables("表A").Load

麻烦甜老师了！！！非常严重的感谢！上面的代码已试验。还是同一个错误，今天辛苦麻烦你了，早点休息，有问题明天解决！

 不可能错。

的确是报错了，我给您上项目吧。

这个我已经转化为内部表了。

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

点击浏览该文件:管理项目1.rar

密码888

是不是因为没有控件没有绑定到表和列的原因？"DateTimePicker1，"DateTimePicker2是要筛选表B的第六列时间，筛选出来符合条件的（定义为集合1），表A再加载不在集合1里的专合社，combobox1，combobox2又是表A条件筛选，前面时间条件筛选了后，再通过combobox1，combobox2筛选表A里面的区域和专合社类别。

Dim filter1 As String = "1=1"

With e.Form.Controls("DateTimePicker1")

If .Value IsNot Nothing Then
        filter1 = filter1 & " and 第六列 >= '" & .Value & "'"
    End If
End With
With e.Form.Controls("DateTimePicker2")
    If .Value IsNot Nothing Then
        filter1 = filter1 & " and 第六列 <= '" & .Value & "'"
    End If
End With
Dim filter2 As String = "1=1"
With e.Form.Controls("combobox1")
    If .Value IsNot Nothing Then
        filter2 = Filter2 & " And 第2列 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("combobox2")
    If .Value IsNot Nothing Then
        filter2 = filter2 & " and 第1列 = '" & .Value & "'"
    End If
End With

DataTables("表A").LoadFilter = "第4列 not in (select isnull(第七列, '') from {表B} where " & filter1 & ") and " & filter2

DataTables("表A").Load

对甜老师的感谢和敬佩已经无以复加了。。。您什么时候来四川成都。。请喝酒吃火锅。qq:261035892.15808178626