- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]筛选：按钮代码如何表达？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71135)
-- 发布时间：2015/7/6 9:33:00
-- [求助]筛选：按钮代码如何表达？
筛选：1、排除空、空白，如图
此主题相关图片如下：排除空、空白.jpg
2、多选如图此主题相关图片如下：多选.jpg
按钮代码如何表达？
-- 发布时间：2015/7/6 9:42:00
--
求解
-- 发布时间：2015/7/6 9:50:00
--
执行按钮进行选择后，到菜单，高级下面的表达式筛选，查看一下表达式就知道应该怎么写代码了
-- 发布时间：2015/7/6 10:05:00
--
Tables("表A").Filter = "龄组 in (\'张三\', \'李四\', \'王五\')"
--------------------
Tables("表A").Filter = "龄组 is null Or 龄组 = \'\'"
-- 发布时间：2015/7/6 10:10:00
--
([林种] In (\'一般用材林\')) And ([龄组] In (\'成熟林\',\'过熟林\',\'近熟林\'))
Dim g As New CrossTableBuilder("近成过", DataTables("二类小班"))
g.HGroups.AddDef("乡名")
g.HGroups.AddDef("龄组")
g.HGroups.AddDef("优势树种")
g.VGroups.AddDef("径级组")
g.Totals.AddDef("小班株数百株", "株数")
g.Totals.AddDef("小班蓄积", "蓄积")
g.HorizontalTotal = True
g.VerticalTotal = True
g.HorizontalProportion = True
g.Build()
MainTable = Tables("近成过")
红色部分不执行，
此主题相关图片如下：语法错误.jpg
-- 发布时间：2015/7/6 10:12:00
--
g.Filter = "[林种] In (\'一般用材林\') And [龄组] In (\'成熟林\',\'过熟林\',\'近熟林\')"