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


  共有8422人关注过本帖平板打印复制链接

主题:老大 看看这个是不是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编辑过]

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