If e.DataCol.Name = "项目" Then
If e.NewValue Is Nothing Then
e.DataRow("上日余额") = Nothing
Else
Dim dr As DataRow
dr = DataTables("用友账户表").Find("[科目名称] = '" & e.NewValue & "'")
If dr IsNot Nothing
e.DataRow("上日余额") = dr("昨日余额")
End If
End If
If e.DataRow("项目") = "银行账户小计" And e.DataRow("类型") = "A00" Then
e.DataRow("上日余额") = e.DataTable.Compute("sum(上日余额)", "类型 = 'A00' and 区分 = '银行账户'")
End If
If e.DataRow("项目") = "线上账户小计" And e.DataRow("类型") = "A00" Then
e.DataRow("上日余额") = e.DataTable.Compute("sum(上日余额)", "类型 = 'A00' and 区分 = '线上账户'")
End If
If e.DataRow("项目") = "银行账户小计" And e.DataRow("类型") = "C00" Then
e.DataRow("上日余额") = e.DataTable.Compute("sum(上日余额)", "类型 = 'C00' and 区分 = '银行账户'")
End If
If e.DataRow("项目") = "线上账户小计" And e.DataRow("类型") = "C00" Then
e.DataRow("上日余额") = e.DataTable.Compute("sum(上日余额)", "类型 = 'C00' and 区分 = '线上账户'")
End If
If e.DataRow("项目") = "A00合计" Then
e.DataRow("上日余额") = e.DataTable.Compute("sum(上日余额)", "类型 = 'A00' and (区分 = '银行账户' or 区分 = '线上账户' or 项目 = 'A00库存现金') ")
End If
If e.DataRow("项目") = "C00合计" Then
e.DataRow("上日余额") = e.DataTable.Compute("sum(上日余额)", "类型 = 'C00' and (区分 = '银行账户' or 区分 = '线上账户' or 项目 = 'C00库存现金') ")
End If
If e.DataRow("项目") = "总计" Then
e.DataRow("上日余额") = e.DataTable.Compute("sum(上日余额)", "区分 = '银行账户' or 区分 = '线上账户' or 项目 = 'A00库存现金' or 项目 = 'C00库存现金' ")
End If
End If
加好友 
发短信
Post By：2019/7/18 10:57:00 [显示全部帖子]
此主题相关图片如下：微信截图_20190717113551.png
