Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求大神看一下，筛选的命令对不对


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

主题：求大神看一下，筛选的命令对不对
帅哥哟，离线，有人找我吗？
tis0046
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：42 积分：367 威望：0 精华：0 注册：2017/9/25 12:52:00 		求大神看一下，筛选的命令对不对  发帖心情 Post By：2017/10/1 12:40:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "开始日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "结束日期 <= #" & .Value & "#"
    End If
End With


想设计一个筛选， 从开始日期到结束日期筛选，输入以上Click事件代码后，设计的筛选没有任何反映
 回到顶部
帅哥哟，离线，有人找我吗？
lindong
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：457 积分：3951 威望：0 精华：0 注册：2013/12/9 0:52:00 		  发帖心情 Post By：2017/10/1 15:35:00 [只看该作者]

Dim Filter As String
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "开始日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "结束日期 <= #" & .Value & "#"
    End If
End With

 

if Filter > "" then

tables("表名").Filter =Filter

end if

 
 回到顶部
帅哥哟，离线，有人找我吗？
tis0046
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：42 积分：367 威望：0 精华：0 注册：2017/9/25 12:52:00 		  发帖心情 Post By：2017/10/1 16:16:00 [只看该作者]

太棒了，完美解决

 回到顶部
帅哥哟，离线，有人找我吗？
tis0046
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：42 积分：367 威望：0 精华：0 注册：2017/9/25 12:52:00 		  发帖心情 Post By：2017/10/1 16:29:00 [只看该作者]

还想再问一下，如果我在窗口里设计一个table(表)，想让筛查的数据都反映这个表上，命令应该怎么写？table(表)已经绑定表A及设定为副本
Dim Filter As String
Dim tbl As Table = e.Form.Controls("Table1").Table
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "开始日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "结束日期 <= #" & .Value & "#"
    End If
End With
 
If Filter > "" Then
Tables("表A").Filter =Filter
End If

这样写可以吗？
 回到顶部
帅哥哟，离线，有人找我吗？
lindong
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：457 积分：3951 威望：0 精华：0 注册：2013/12/9 0:52:00 		  发帖心情 Post By：2017/10/1 20:05:00 [只看该作者]

Tables("表A").Filter =Filter 改为 Tables("窗口名_table1").Filter =Filter

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询