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
以上代码中 科目编号 项目编号 开始日期 截止日期 四项必须都不为空时计算才有效，有一项是空时计算无效，怎么改进呀，能其中某一、两项空时还有效。
加好友 
发短信
Post By：2016/8/3 0:50:00 [显示全部帖子]
