老大看看这个是不是net造成的? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Filter As String ="" '定义筛选
If e.Form.Controls("TextBox1").Value IsNot Nothing Then
    Dim T As String = " Like '%" & e.Form.Controls("TextBox1").Value & "%'" '定义控件的值
    For Each dc As Col In Tables(e.form.Name & "_Table1").Cols '遍历表的所有列
        If dc.DataCol.IsDate OrElse dc.DataCol.IsBoolean OrElse dc.DataCol.IsNumeric Then '如果是时间列,逻辑列,数值列
            Continue For    '排除
        End If
        If Filter > "" Then
            Filter = Filter & " Or "
        End If
        Filter = Filter & "[" & dc.Name & "]" & T '根据控件值迷糊筛选
    Next
End If
If filter > "" Then
    filter = "(" & filter & ")"
End If
With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "受理时间 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("DateTimePicker2")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "受理时间 <= #" & .Value & "#"
    End If
End With
If Filter > "" Then
    DataTables(e.form.Name & "_Table1").loadFilter = Filter '将数据筛选出来
    DataTables(e.form.Name & "_Table1").load
    Tables(e.Form.Name & "_Table1").AutoSizeCols()
End If

主题：老大 看看这个是不是net造成的?

主题：老大看看这个是不是net造成的?