Foxtable(狐表)用户栏目专家坐堂 → 老大 看看这个是不是net造成的?


  共有8399人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
blackzhu
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
老大 看看这个是不是net造成的?  发帖心情 Post By:2013/3/1 13:40:00 [只看该作者]

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
Next
'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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
zerov
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:867 积分:6210 威望:0 精华:0 注册:2012/11/24 20:44:00
  发帖心情 Post By:2013/3/1 13:46:00 [只看该作者]

跟踪

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2013/3/1 13:56:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251060 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/3/1 13:57:00 [只看该作者]

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

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

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


 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7237 积分:40614 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2013/3/1 14:06:00 [只看该作者]

这里出了问题:

 If Filter > "" Then

      Filter = Filter & " Or "
End If
If t <> "" Then
      Filter = Filter & "[" & dc.Name & "] Like '%" & T & "%'" '根据控件值迷糊筛选
End If

 

改为:

If Filter = "" Then

     Filter = Filter & "[" & dc.Name & "] Like '%" & T & "%'" '根据控件值迷糊筛选
else
     Filter = Filter & " or [" & dc.Name & "] Like '%" & T & "%'" '根据控件值迷糊筛选
End If
 
否则,Filter 永远等于空,并不是一段时间,而是一直都这样,您没发现而已!

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7237 积分:40614 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2013/3/1 14:08:00 [只看该作者]

因为您定义的filter的值等于空,而您没有满足等于空赋值的代码,所以,filter永远为空!

 回到顶部
帅哥哟,离线,有人找我吗?
程兴刚
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:超级版主 帖子:7237 积分:40614 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2013/3/1 14:11:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
muhua
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:等待验证 帖子:3855 积分:20692 威望:0 精华:5 注册:2012/6/21 14:03:00
  发帖心情 Post By:2013/3/1 14:12:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2013/3/1 14:20:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9875 积分:57596 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2013/3/1 14:21:00 [只看该作者]

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

 回到顶部
总数 22 1 2 3 下一页