- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何不参与计算 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=31757)
-- 发布时间：2013/4/19 21:31:00
-- 如何不参与计算
请问,有2个表,1个统计表,一个订单表
在统计表中:写了代码
Dim dr As DataRow = e.DataRow
Dim dt As DataTable = DataTables("支付明细")
If e.DataCol.Name = "支付_总费" Then
dr("支付_总费") = dt.Compute("Sum(支付_费用)","[定单编号] = \'" & dr("定单编号") & "\'")
End If
在订单表上的代码:
Select Case e.DataCol.Name
Case "支付_费用","定单编号"
Dim pr As DataRow
pr = DataTables("定单表").Find("定单编号 = \'" & e.DataRow("定单编号") & "\'")
If pr IsNot Nothing Then
DataTables("定单表").DataCols("支付_总费").RaiseDataColChanged(pr)
End If
End Select
那么我现在还有一列是支付状态 (正常,作废)
我想在支付状态是"作废"的时候,就不计算此行,该怎么写代码呢?
-- 发布时间：2013/4/19 22:10:00
--
-- 发布时间：2013/4/20 9:15:00
--
dr("支付_总费") = dt.Compute("Sum(支付_费用)","[定单编号] = \'" & dr("定单编号") & "\'" and ???? )
支付状态=正常
-- 发布时间：2013/4/20 9:17:00
--
dr("支付_总费") = dt.Compute("Sum(支付_费用)","[定单编号] = \'" & dr("定单编号") & "\' and [支付状态]=\'" & 正常 & "\'" )
自己试一下啊