Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口的两个：ComboBox，ValueChanged发生变化后：筛选table


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

主题：窗口的两个：ComboBox，ValueChanged发生变化后：筛选table
帅哥哟，离线，有人找我吗？
yancheng
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00 		窗口的两个：ComboBox，ValueChanged发生变化后：筛选table  发帖心情 Post By：2015/12/27 13:37:00 [显示全部帖子]

窗口的两个：ComboBox，ValueChanged发生变化后：筛选table
这个窗口中有两个：ComboBox，分别为：执行情况（ComboBox4），单据状态（ComboBox3）
当这两个：ComboBox的：ValueChanged发生变化时，怎么，联动切换？
我现在在：单据状态（ComboBox3）的：ValueChanged写了如下代码：

Dim filter As String=""
With e.Form.Controls("ComboBox4")
    If .Value <> "所有" Then
        Filter = "执行情况 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("ComboBox3")
    If filter > "" Then
        filter = filter & " and "
    End If
    If .Value <> "所有" Then
        Filter ="单据状态 ='" & .Value & "' "
    End If
End With

Tables("调单采购订单_table2").Filter=filter
执行情况（ComboBox4）的：ValueChanged写了如下代码：
Dim filter As String=""
With e.Form.Controls("ComboBox3")
    If .Value <> "所有" Then
        Filter ="单据状态 ='" & .Value & "' "
    End If
End With

With e.Form.Controls("ComboBox4")
    If filter > "" Then
        filter = filter & " and "
    End If
    If .Value <> "所有" Then
        Filter = "执行情况 = '" & .Value & "'"
    End If
End With
Tables("调单采购订单_table2").Filter=filter

现在做出来的效果是： 改变ComboBox3，ComboBox4的值时，只执行自己的，别管另一个ComboBox的值。
图片点击可在新窗口打开查看此主题相关图片如下：55.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/12/27 13:37:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2015/12/27 13:38:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：66.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2015/12/27 14:16:00 [显示全部帖子]

我原来就写在TEXTCHANGED里面的，感觉一样的。

选择：“所有”时，还报错。
图片点击可在新窗口打开查看此主题相关图片如下：77.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2015/12/27 14:17:39编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yancheng
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2015/12/27 15:54:00 [显示全部帖子]

还是一样的情况。

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


加好友 发短信
等级：四尾狐 帖子：843 积分：5982 威望：0 精华：0 注册：2013/6/29 9:36:00 		  发帖心情 Post By：2015/12/27 16:25:00 [显示全部帖子]

这样好像行了。

Dim filter As String=""
With e.Form.Controls("ComboBox3")
    If .Value > "" AndAlso .Value <> "所有" Then
        Filter ="单据状态 ='" & .Value & "' "
    End If
End With
With e.Form.Controls("ComboBox4")
    If .Value > "" AndAlso  .Value <> "所有" Then
        If filter > "" Then
            filter = filter & " and "
        End If
        Filter =filter & "执行情况 = '" & .Value & "'"
    End If
End With
Tables("调单采购订单_table2").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.04688 秒, 5 次数据查询