- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]为什么不输入日期筛选会出错？ (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=20615)
-- 发布时间：2012/6/13 18:30:00
-- [求助]为什么不输入日期筛选会出错？
表达式如下：
Dim Filter As
String
With e.Form.Controls("StartDate")
If .Value IsNot Nothing
Then
If Filter >"" Then
Filter = Filter & " And "
End
If
Filter = Filter & "日期 >= #" & .Value & "#"
End
If
End
With
With e.Form.Controls("EndDate")
If .Value IsNot Nothing
Then
If Filter >"" Then
Filter = Filter & " And "
End
If
Filter = Filter & "日期 <= #" & .Value & "#"
End
If
End
With
If Filter > "" Then
Tables("订单").Filter = Filter & “ And 固定条件”
else
Tables("订单").Filter = "固定条件”
End
If
Dim g As New CrossTableBuilder("统计表1", DataTables("2012年数据"))
g.Filter = Filter & “ And 固定条件”
g.Caption = "下属企业经营情况"
g.HGroups.AddDef("下属企业")
g.VGroups.AddDef("经营范围")
g.Totals.AddDef("项目编号", AggregateEnum.Count, "项目编号")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Build()
MainTable = Tables("统计表1")
输入查询日期就不会错，不输入日期查询就会错
此主题相关图片如下：dsfbg.jpg
-- 发布时间：2012/6/13 18:48:00
--
哈哈哈 不输入日期时 filter=" and 固定条件"
-- 发布时间：2012/6/13 18:52:00
--
If Filter > "" Then
Tables("订单").Filter = Filter & “ And 固定条件”
else
Tables("订单").Filter = "固定条件”
End
If
应改为 :
If Filter > "" Then
Tables("订单").Filter = Filter & “ And 固定条件”
Filter = Filter & “ And 固定条件”
else
Tables("订单").Filter = "固定条件”
Filter = "固定条件”
End
If
Dim g As New CrossTableBuilder("统计表1", DataTables("2012年数据"))
g.Filter = Filter