主题：专业报表取数与实际顺序不一致

Select Case e.DataCol.name

    Case "户名"

        If e.DataRow("户名") = "无户名无账号" Then

            Dim v As List(Of String)  = DataTables("交易明细").GetValues("交易内容","对方户名 = '" & e.DataRow("户名") & "'")

            For Each s As String In v 

                Dim sum = DataTables("交易明细").SQLCompute("sum(借方金额)","对方户名 = '" & e.DataRow("户名") & "' and 交易内容='" & s & "'")

                msgbox(sum)

            Next

        Else

            e.DataRow("银行明细_借方金额")=DataTables("交易明细").SQLCompute("sum(借方金额)","对方户名 = '" & e.DataRow("户名") & "'")

        End If

End Select