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

代码执行到最后，您的filter最多会有这样一个值： "受理时间 >= #" & .Value & "#"，其他什么or、and之类的都没有！

对呀我测试过了加了文本框值就连接or 一类的都没有了,只有

tables(xxx).filter ="时间列>=# 2012-12-25 & # And 时间列 <= # 2012-12-30 # 一类的字符串 ,那么筛选也是对的. 关键是加载全部了.

现在是重新发布了就好了.

以下是引用狐狸爸爸在2013-3-1 13:57:00的发言：

这个不会的，只有一个原因，所有行都符合你合成的额条件。

因为你用or连接各个条件，只要其中有一个条件所有行都符合，就全部加载了。

既然他使用一段时间就全部加载了，那就等他出问题的时候，将他数据库拿过来测试就行了。

奇怪就在于用时间段加载会全部加载我重新发布了就好了.

muhua 现在正常了还拿得出什么呀? 代码怎么测试都没有问题.

[此贴子已经被作者于2013-3-1 14:51:28编辑过]

如果是SQL数据源，改用下面的代码：

Dim T As String = e.Form.Controls("TextBox1").text '定义控件的值
Dim Filter As String =""  '定义筛选
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 & "[" & dc.Name & "] Like '%" & T & "%'" '根据控件值迷糊筛选
    Else
        Filter = Filter & " or [" & dc.Name & "] Like '%" & T & "%'" '根据控件值迷糊筛选
    End If
Next

With e.Form.Controls("DateTimePicker1")
    If .Value IsNot Nothing Then
        If Filter = "" Then
            Filter = "[受理时间] >= '" & .Value & "'"
        Else
            Filter = Filter & " and [受理时间] >= '" & .Value & "'"
        End If
    End If
End With
With e.Form.Controls("DateTimePicker2")
    If .Value IsNot Nothing Then
        If Filter = "" Then
            Filter = "[受理时间] <= '" & .Value & "'"
        Else
            Filter = Filter & " and [受理时间] <= '" & .Value & "'"
        End If
    End If
End With
DataTables(e.form.Name & "_Table1").loadFilter = Filter  '将数据筛选出来
DataTables(e.form.Name & "_Table1").load
Tables(e.Form.Name & "_Table1").AutoSizeCols()

[此贴子已经被作者于2013-3-1 14:59:40编辑过]

测试了改成程大的反而全部\加载了

老朱，你这个是个什么数据源？ SQL还是Access的？

我帮你整理一下代码算了。

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

muhua	小大 14楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/3/1 14:37:00 [只看该作者] 用户已被锁定

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

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