Foxtable(狐表)用户栏目专家坐堂 → [求助]后台筛选


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

主题:[求助]后台筛选

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


加好友 发短信
等级:八尾狐 帖子:1837 积分:12990 威望:0 精华:0 注册:2013/6/10 9:23:00
[求助]后台筛选  发帖心情 Post By:2015/7/9 16:01:00 [显示全部帖子]

从后台筛选, 下面代码那里错了, 请老师指教!谢谢!

 

Dim filter As String
Dim sts() As String = {"产品ID","产品类别","产品名称","产品图号","产品材料","产品规格"}
For Each st As String In sts
    Dim  val As String = e.Form.Controls(st).value
    If val > "" Then
        val = val.Replace("*","[*]")
        If filter = "有图=false " Then
            filter = st & " like '*" & val & "*'"
        Else
            filter = filter & " and " & st & " like '*" & val & "*'"
        End If
    End If
Next
DataTables("产品表").LoadFilter = Filter
DataTables("产品表").Load()


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


加好友 发短信
等级:八尾狐 帖子:1837 积分:12990 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2015/7/9 16:30:00 [显示全部帖子]

关键字 'and' 附近有语法错误。

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


加好友 发短信
等级:八尾狐 帖子:1837 积分:12990 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2015/7/9 16:40:00 [显示全部帖子]

撤销筛选的代码, 把条件“有图 = false " 加到那里呢?

 

Dim filter As String
Dim sts() As String = {"产品ID","产品类别","产品名称","产品图号","产品材料","产品规格"}
For Each st As String In sts
    e.Form.Controls(st).value = Nothing
Next
DataTables("产品表").LoadFilter = Filter
DataTables("产品表").Load()


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


加好友 发短信
等级:八尾狐 帖子:1837 积分:12990 威望:0 精华:0 注册:2013/6/10 9:23:00
  发帖心情 Post By:2015/7/9 16:47:00 [显示全部帖子]

谢谢老师!

 回到顶部