Foxtable(狐表)用户栏目专家坐堂 → [求助]窗口表的combobox筛选代码


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

主题:[求助]窗口表的combobox筛选代码

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


加好友 发短信
等级:幼狐 帖子:125 积分:797 威望:0 精华:0 注册:2017/5/26 11:11:00
[求助]窗口表的combobox筛选代码  发帖心情 Post By:2017/6/16 12:54:00 [只看该作者]

组合框值用于筛选

 

 

Dim dt As Table = e.Form.controls("Tableblitem").Table
Dim H As String = e.Form.controls("combobox").value
Dim Filter As String
Select Case  H

    Case "张三"
        Filter = "H1"
    Case "李四"
        Filter = "H2" And "H3" And "H4"

    Case "王五"
        Filter = "H5"
End Select
Filter = "code='" & e.Row("code") & "' And pcode='"& e.Row("pcode") & "'And ptype= Filter"
e.form.controls("Tablelablist").Table.Filter  = Filter

 

 

报错:row不是eventargs成员。。。


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/16 15:35:00 [只看该作者]

Dim dt As Table = e.Form.controls("Tableblitem").Table
Dim H As String = e.Form.controls("combobox").value
Dim Filter As String
Select Case  H

    Case "张三"
        Filter = "'H1'"
    Case "李四"
        Filter = "'
H2','H3','H4'"

    Case "王五"
        Filter = "'H5'"
End Select

e.form.controls("Tablelablist").Table.Filter = "ptype in (" & filter & ")"

 


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


加好友 发短信
等级:幼狐 帖子:125 积分:797 威望:0 精华:0 注册:2017/5/26 11:11:00
  发帖心情 Post By:2017/6/16 16:55:00 [只看该作者]

还有几个条件,可以这么加吗?

e.form.controls("Tablelablist").Table.Filter  = "ptype in (" & filter & ")" and "lcode='" & e.Row("lcode") & "' and  "pvcode='"& e.Row("pvcode") & "'"


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


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/16 18:19:00 [只看该作者]

 条件从哪里取值?做实例上来看看。

 回到顶部