Foxtable(狐表)用户栏目专家坐堂 → 控件上是字符数组,如何实现筛选加载


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

主题:控件上是字符数组,如何实现筛选加载

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


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/8/13 9:26:00 [显示全部帖子]

Dim Filter As String
With e.Form.Controls("ComboBox1")
    If .Value IsNot Nothing Then
        Dim Parts() As String = .Value.Split("-")
Filter = "分类 = '" & Parts(0) & "'"
        If Parts.length > 1 Then
            Filter = "(" & Filter & " or 明细分类 = '" & Parts(1) & "')"
        End If
    End If
End With

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


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/8/13 10:16:00 [显示全部帖子]

没有符合条件的数据

msgbox(Filter)

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


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/8/13 14:13:00 [显示全部帖子]

肯定没有符合这个条件的数据

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


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/8/13 15:14:00 [显示全部帖子]

请上传实例说明

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


加好友 发短信
等级:超级版主 帖子:109505 积分:557193 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/8/13 16:38:00 [显示全部帖子]

弹出的条件里有多余的空格,但凡仔细一点都看得出来。这么久了都还学不会从调试里找原因

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


导出新建项目出错的原因是表格没有_sortkey列

 回到顶部