求助：如何把红色部分的条件代码改了，可以组合筛选？
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()
加好友 
发短信
Post By：2015/10/21 10:51:00 [只看该作者]
此主题相关图片如下：qq图片20151021104340.png