Foxtable(狐表)用户栏目专家坐堂 → 更新后的foxtable 不能查询带有* 的字符串怎么办?


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

主题:更新后的foxtable 不能查询带有* 的字符串怎么办?

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


加好友 发短信
等级:二尾狐 帖子:532 积分:4020 威望:0 精华:0 注册:2011/6/18 12:41:00
更新后的foxtable 不能查询带有* 的字符串怎么办?  发帖心情 Post By:2014/12/7 16:57:00 [显示全部帖子]

更新后的foxtable 不能查询带有* 的字符串怎么办? 我们的产品规格大部分带有*,查询带有*的字符串是经常使用的一个功能。


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

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

代码如下


Dim Filter As String
With e.Form.Controls("textbox1")
    If .Value IsNot Nothing Then
        Filter = "chanpinid = '" & .Value & "'"
    End If
End With
With e.Form.Controls("textbox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "chanpinname like '%" & .Value & "%'"
    End If
End With
With e.Form.Controls("textbox3")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "guige like '%" & .Value & "%'"
    End If
End With

With e.Form.Controls("textbox4")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "danwei like '%" & .Value & "%'"
    End If
End With

With e.Form.Controls("textbox5")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "chuhuodate >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("textbox6")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If 
        Filter = Filter & "chuhuodate <= #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("chuhuo").Filter = Filter
End If



如何解决这个问题?

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


加好友 发短信
等级:二尾狐 帖子:532 积分:4020 威望:0 精华:0 注册:2011/6/18 12:41:00
  发帖心情 Post By:2014/12/7 17:48:00 [显示全部帖子]

谢谢甜!
系统右键菜单->文本筛选 -> 包含  查询的时候也会出现相同的错误提示
这个可以解决吗?
怎么改?

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


 回到顶部