主题：多字段计算

在统计银行交易数据时，经常需要统计多对多转账交易数据的统计与查询，比如 需要统计 甲乙丙丁四个人对ABCD四个人的交易数据，为此我设计如下代码，但是运行速度非常慢，有没有更好的办法

'Select Case e.DataCol.Name
'Case "涉及人员","交易户名"
    'For Each dr1 As DataRow In DataTables("银行现金汇总").DataRows
        'If dr1.IsNull("交易户名") = False AndAlso dr1.IsNull("涉及人员") = False Then '如果工号列不为空
            'Dim nms1() As String = dr1("交易户名").Split(",") '将工号列内容拆分成数组
            'Dim nms2() As String = dr1("涉及人员").Split(",") '将工号列内容拆分成数组
            'Dim v1 As Double
            'Dim v2 As Double
            'For Each nm1 As String In nms1 '遍历参与加工此产品的每个工号
                'For Each nm2 As String In nms2 '遍历参与加工此产品的每个工号
                    'v1 = v1 + DataTables("银行明细").sqlCompute("sum(借方金额)","交易户名 = '"& nm1 & "'and 对方户名 = '" & nm2 & "'")
                    'v2 = v2 + DataTables("银行明细").sqlCompute("sum(贷方金额)","交易户名 = '"& nm1 & "'and 对方户名 = '" & nm2 & "'")
                'Next
            'Next
            'e.DataRow("银行交易_借方金额") = v1
            'e.DataRow("银行交易_贷方金额") = v2
        'End If
    'Next
'End Select