以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  求助：组合筛选问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76070)

--  作者：xianzheng --  发布时间：2015/10/21 10:51:00 --  求助：组合筛选问题 求助：如何把红色部分的条件代码改了，可以组合筛选？ Dim dt1 As WinForm.DateTimePicker Dim dt2 As WinForm.DateTimePicker dt1 = e.Form.Controls("StartDate") dt2 = e.Form.Controls("EndDate") If e.Form.Controls("StartDate").Value = Nothing Or e.Form.Controls("EndDate").Value = Nothing Then     Return End If Dim b As New CrossTableBuilder("统计表1",DataTables("企业每月纳税情况")) Dim cj As WinForm.TextBox  = e.Form.Controls("TextBox1") Tables("企业每月纳税情况").Filter=" 简称 Like \'*" & cj.Text & "*\'" b.Filter ="[日期] >= #" & dt1.Value & "# And [日期] <= #" & dt2.Value & "#" b.HGroups.AddDef("中文简称") \'添加列用于水平分组 b.HGroups.AddDef("年") \'添加列用于水平分组 b.HGroups.AddDef("月") \'添加列用于水平分组 b.HGroups.AddDef("申报_增值税") \'添加列用于水平分组 b.HGroups.AddDef("申报_综合申报") \'添加列用于水平分组 b.HGroups.AddDef("申报_个税") \'添加列用于水平分组 b.HGroups.AddDef("申报_企业所得税") \'添加列用于水平分组 b.HGroups.AddDef("申报_社保") \'添加列用于水平分组 b.HGroups.AddDef("申报_文化建设税") \'添加列用于水平分组 b.VGroups.AddDef("日期",DateGroupEnum.Year,"{0}年") \'添加日期列用于垂直分组,按年分组 b.VGroups.AddDef("日期","{0}月") \'添加日期列用于垂直分组,按月分组 b.Totals.AddDef("税费合计") \'添加数量列用于统计 b.Build \'生成统计表 Tables("纳税申报情况统计_Table1").DataSource = b.BuildDataSource()

--  作者：xianzheng --  发布时间：2015/10/21 10:57:00 --   此主题相关图片如下：qq图片20151021104340.png

--  作者：xianzheng --  发布时间：2015/10/21 10:58:00 --   中文简称列筛选，代码写不对，无法筛选

--  作者：大红袍 --  发布时间：2015/10/21 10:59:00 --   Dim cj As WinForm.TextBox  = e.Form.Controls("TextBox1") b.Filter ="简称 Like \'*" & cj.Text & "*\' and [日期] >= #" & dt1.Value & "# And [日期] <= #" & dt2.Value & "#"

--  作者：xianzheng --  发布时间：2015/10/21 11:02:00 --   可以了，谢谢