Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
Dim Filter As String
Dim Year As Integer = dr("年")
Dim Month As Integer = dr("月")
Dim day As Integer = dr("日")
Select Case e.Node.Level
Case 0
Filter ="Year(申请日期) = " & Year
Case 1
Filter ="Year(申请日期) = " & Year & " And Month(申请日期) = " & Month
Case 2
Filter ="Year(申请日期) = " & Year & " And Month(申请日期) = " & Month & " And Day(申请日期) = " & day
End Select
DataTables("申请单").LoadFilter = Filter
DataTables("申请单").Load()
DataTables("申请单").DataCols("工程金额").Expression = ""
DataTables("申请单").DataCols("费用金额").Expression = ""
DataTables("申请单").DataCols("应付金额").Expression = ""
DataTables("申请单").DataCols("已预支金额").Expression = ""
DataTables("申请单").DataCols("应付余额").Expression = ""
DataTables("申请单").DataCols("专piao金额").Expression = ""
DataTables("申请单").DataCols("普piao金额").Expression = ""
DataTables("申请单").DataCols("无piao金额").Expression = ""
DataTables("申请单").DataCols("欠piao金额").Expression = ""
DataTables("申请单").DataCols("多piao金额").Expression = ""
DataTables("费用录入").DataCols("费用金额").Expression = ""
DataTables("申请单").DataCols("工程金额").Expression = "Sum(Child(申请单_入库单).含税金额)"
DataTables("费用录入").DataCols("费用金额").Expression = "IIF([摘要] <> '工程购料',[金额],0)"
DataTables("申请单").DataCols("费用金额").Expression = "Sum(Child(申请单_费用录入).费用金额)"
DataTables("申请单").DataCols("应付金额").Expression = "IsNull([期初金额],0) + IsNull([工程金额],0) + IsNull([费用金额],0)"
DataTables("申请单").DataCols("已预支金额").Expression = "Sum(Child(申请单_流水账).支出)"
DataTables("申请单").DataCols("应付余额").Expression = "IsNull([应付金额],0)-IsNull([已预支金额],0)"
DataTables("申请单").DataCols("专piao金额").Expression = "Sum(Child(申请单_进项fa piao).fa piao金额)"
DataTables("申请单").DataCols("普piao金额").Expression = "Sum(Child(申请单_费用录入).普piao金额)"
DataTables("申请单").DataCols("无piao金额").Expression = "Sum(Child(申请单_费用录入).无piao金额)"
DataTables("申请单").DataCols("欠piao金额").Expression = "Sum(Child(申请单_费用录入).待开金额)"
DataTables("申请单").DataCols("多piao金额").Expression = "Sum(Child(申请单_费用录入).多开金额)"
加好友 
发短信
Post By：2019/5/22 19:09:00 [只看该作者]
此主题相关图片如下：加载代码.png
