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

Dim T As String = e.Form.Controls("TextBox1").Value '定义控件的值

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 & " Or "

End If

If t <> "" Then

Filter = Filter & "[" & dc.Name & "] Like '%" & T & "%'" '根据控件值迷糊筛选

End If

'If filter.Contains("Or") 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

'MessageBox.Show(filter)

If Filter > "" Then

DataTables(e.form.Name & "_Table1").loadFilter = Filter '将数据筛选出来

DataTables(e.form.Name & "_Table1").load

End If

Tables(e.Form.Name & "_Table1").AutoSizeCols()

这段代码有无问题,我现在有个奇怪的事 .

我测试输入了一个时间段加载的数据,没有任何问题.

但是我发布了一个项目交给人家客户使用, 他输入一个时间段以后加载的数据是全部的.没有按照这个时间段加载. 这个是不是net的问题?

[此贴子已经被作者于2013-3-1 13:48:15编辑过]

重新发布了后据说没有问题了没有修改任何东西.

问题是我测试了不管加不加都可以成功加载的. 而且这个代码我用了不是一天了.

程版问题是我没有加载文本框条件只是按照时间段加载而已所以不存在这个问题的.

代码执行到最后，您的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编辑过]

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

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

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