自动汇总 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim filter As String = "科目编号 = '" & e.DataRow("科目编号") & "'and 项目编号 = '" & e.DataRow("项目编号") & "'and 日期 >= '" & e.DataRow("开始日期") & "'and 日期 <= '" & e.DataRow("截止日期") & "'and 公司名称 = '" & e.DataRow("公司名称") & "'"
'Dim filter As String = "科目编号 = '" & e.DataRow("科目编号") & "'And 日期 >= '" & e.DataRow("开始日期") & "'and 日期 <= '" & e.DataRow("截止日期") & "'and 公司名称 = '" & e.DataRow("公司名称") & "'"

Select Case e.DataCol.name
    Case "开始日期"
        e.DataRow("发生借方") = DataTables("凭证明细").Compute("sum(借方金额)",filter)
        e.DataRow("发生贷方") = DataTables("凭证明细").Compute("sum(贷方金额)",filter)

End Select

以上代码中科目编号项目编号开始日期截止日期四项必须都不为空时计算才有效，有一项是空时计算无效，怎么改进呀，能其中某一、两项空时还有效。

主题：自动汇总