- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]订单金额代码如何写 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=2771)
-- 发布时间：2009/5/13 9:49:00
-- [求助]订单金额代码如何写
请问大虾：总表中订单金额等于明细表订单金额合计的代码如何写？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:销售管理.table |
-- 发布时间：2009/5/13 10:14:00
--
参考DataTable的Compute吧，不难的
自己动手好啊，呵呵
-- 发布时间：2009/5/13 10:21:00
--
自己在明细表中写的如下代码只能在明细记录为单笔记录时正确，超过单笔总表不能显示明细记录的合计值，请老师们指点一下
If e.DataCol.Name = "销售金额"
Dim drs As List(Of DataRow) = DataTables("三级订单总表").Select("[订单单号] = \'" & e.DataRow("订单单号") & "\'")
For Each dr As DataRow In drs
dr("订单金额") =e.DataRow("销售金额") 这句代码有问题吧，如果改呢
Next
End If
-- 发布时间：2009/5/13 10:27:00
--
If e.DataCol.Name = "销售金额"
Dim dr As DataRow = DataTables("三级订单总表").Find("[订单单号] = \'" & e.DataRow("订单单号") & "\'")
if dr isnot nothing then
dr("订单金额") = DataTables("明细表").Compute(sum("销售金额") ，"[订单单号] = \'" & e.DataRow("订单单号") & "\'")
end if
End If
-- 发布时间：2009/5/13 10:38:00
--
谢谢！如下代码通过
If e.DataCol.Name = "销售金额"
Dim drs As List(Of DataRow) = DataTables("三级订单总表").Select("[订单单号] = \'" & e.DataRow("订单单号") & "\'")
For Each dr As DataRow In drs
dr("订单金额") = DataTables("三级订单明细").Compute("sum(销售金额)" ,"[订单单号] = \'" & e.DataRow("订单单号") & "\'")
Next
End If
-- 发布时间：2009/5/13 11:07:00
--
自己动手出来了，恭喜你，呵呵