内容就是窗口筛选 : 这个运行很多次了 都没有问题 只有在限制了数据后,追载数据的时候 出现了问题
Dim Filter As String
With e.Form.Controls("AGENT_NAME")
If .Value IsNot Nothing Then
Filter = "AGENT_NAME = '" & .Value & "'"
End If
End With
With e.Form.Controls("AGENT_phone")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "AGENT_PH"
End If
End With
With e.Form.Controls("AGENT_CODE")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "AGENT_CODE = '" & .Value & "'"
End If
End With