问题一
Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("部门损益总账")
If e.DataCol.Name = "部门" And dr.IsNull("部门")= False Then
dr("其他日常营运成本_其他日常营运费用") = dt.Compute("sum(借方发生)", "[部门名称] = '" & dr("部门") & "' and [科目名称] ='其他日常营运费用'")
End If
如果是多列判断要怎么写,如图中,要统计日期和部门同时对应的数据
此主题相关图片如下:1234.png
问题二
另外,上图中前面4列也可以从其他表中填充过来吗,填充代码写在哪里,我把下面这段代码也写在DataColChanged中,一重置列项目就退出
Dim Cols1() As String = {"所属单位","部门类型","日期","部门"}
Dim Cols2() As String = {"所属单位","部门类型","日期","部门"}
For Each dr1 As DataRow In DataTables("B").Select("[部门类型] = '商场'")
Dim dr2 As DataRow = DataTables("A").AddNew()
For i As Integer = 0 To Cols1.Length -1
dr2(Cols2(i)) = dr1(Cols1(i))
Next
Next
[此贴子已经被作者于2015/12/18 22:56:20编辑过]