以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [原创]对一张表进行了时间段的过滤后，还能不能对过滤后的表进行SQLJoinTableBuilder操作？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128193)
--  作者：soap_lwb
--  发布时间：2018/11/30 18:13:00
--  [原创]对一张表进行了时间段的过滤后，还能不能对过滤后的表进行SQLJoinTableBuilder操作？
Dim Filter As String

With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "来电时间 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "来电时间 <= #" & .Value & "#"
    End If
End With

If Filter > "" Then
    Tables("咨询业务热线登记表").Filter = Filter
End If
--  作者：soap_lwb
--  发布时间：2018/11/30 18:21:00
--  用什么方法可以把过滤的表中的列加到另一张表中？
Dim Filter As String

With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "来电时间 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "来电时间 <= #" & .Value & "#"
    End If
End With

If Filter > "" Then
    Tables("咨询业务热线登记表").Filter = Filter
End If
--  作者：有点甜
--  发布时间：2018/11/30 18:21:00
--  

你设置SQLJoinTableBuilder的时候，加上条件，如

 

b.filter = Tables("咨询业务热线登记表").Filter

--  作者：soap_lwb
--  发布时间：2018/11/30 18:28:00
--  
谢谢！