菜单方案代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 菜单方案代码

共有14983人关注过本帖树形打印复制链接主题：菜单方案代码

czy

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/8/7 21:39:00 [显示全部帖子]

没看明白，组合框为空还按上面的代码执行，能筛选出东东吗？

czy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/8/7 22:13:00 [显示全部帖子]

Dim Val As String = RibbonTabs("数据库")("查询信息")("图号")("图号").Text
Dim Val1 As String = RibbonTabs("数据库")("查询信息")("列名").Text
If Val <> "" Then
    If RibbonTabs("数据库")("查询信息")("列名").Text <> "" Then
        CurrentTable.Filter = Val1 & " Like '*" & Val & "*'"
    Else
        CurrentTable.Filter = "[图号] Like '*" & Val & "*'"
    End If
End If

czy

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33957 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/8/7 23:14:00 [显示全部帖子]

以下是引用wqc360在2010-8-7 22:41:00的发言：

CurrentTable.Filter = Val1 & " Like '*" & Val & "*'"

为什么不是：

CurrentTable.Filter = "Val1 & Like '*" & Val & "*'"

为什么还要加一个&

后天测试一下，谢谢C版

这个我就不解释了，看看帮助中的动态合成表达式。

下一主题 >> << 上一主题

主题：菜单方案代码