以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表达式筛选  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74230)
--  作者：kaituozhe
--  发布时间：2015/9/6 19:27:00
--  表达式筛选
[对方户名] In (\'郭俊鹏\')and[交易户名] In (\'张三\',\'李四\',\'王五\',\'李六\')，可以在菜单或窗口中设计类似功能的代码吗？
--  作者：大红袍
--  发布时间：2015/9/6 19:28:00
--  
Tables("表A").Filter = "[对方户名] In (\'郭俊鹏\') and [交易户名] In (\'张三\',\'李四\',\'王五\',\'李六\')"
--  作者：kaituozhe
--  发布时间：2015/10/16 11:06:00
--  
做了一个，实现不了我想要的功能，能否帮我做一个呢，帮助里也没有
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:产品3.zip
--  作者：大红袍
--  发布时间：2015/10/16 11:11:00
--  
If Typeof e.sender Is winform.Button Then
    Dim dr As DataRow = DataTables("高级筛选").find("筛选名称= \'" & e.sender.Name & "\'")
    If dr IsNot Nothing Then
        Functions.remove("函数")
        Dim Code As String
        Code = dr("筛选条件")
        Functions.Add("函数",Code)
        Functions.Complie()
        Functions.Execute("函数")
    End If
End If