以下代码只能处理当前行的数据，如果处理几万行，该怎么办？

Dim er As Row = Tables("表A").current
Dim dr As DataRow = er.table.datatable.Find("[_SortKey] < " & er("_SortKey"), "[_SortKey] Desc") \'找出上一行
If dr Is Nothing Then
    er("借贷方") = "贷"
Else
    If er("余额") > dr("余额")
        er("借贷方") = "贷"
    Else
        er("借贷方") = "借"
    End If
End If

If er("借贷方") = "贷" Then
    er("贷方金额") = er("交易金额")
Else
    er("借方金额") = er("交易金额")
End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目16.zip

 不可能。如果慢，说明你datacolchanged事件有问题。可以加上屏蔽的代码

SystemReady = False

代码

SystemReady = True

以下代码那里错了，只能计算表第一行的，怎么样修改？

Dim v2 As Double

Dim v1 As Double
Dim dr As DataRow = Nothing
For Each er As DataRow In DataTables("银行现金汇总").Select("", "_sortkey")
    If dr Is Nothing Then
        If er.IsNull("交易户名") = False AndAlso er.IsNull("涉及人员") = False Then
            Dim nms1() As String = er("交易户名").Split(",") \'将工号列内容拆分成数组
            Dim nms2() As String = er("涉及人员").Split(",") \'将工号列内容拆分成数组
            For Each nm1 As String In nms1 \'遍历参与加工此产品的每个工号
                For Each nm2 As String In nms2 \'遍历参与加工此产品的每个工号
                    v1 = v1 + DataTables("银行明细").sqlCompute("sum(借方金额)","对方户名 = \'"& nm1 & "\'and 交易户名 = \'" & nm2 & "\'and 交易日期 >= \'" & er("开始日期") &"\'and 交易日期 <= \'" & er("截止日期") &"\'")
                    v2 = v2 + DataTables("银行明细").sqlCompute("sum(贷方金额)","对方户名 = \'"& nm1 & "\'and 交易户名 = \'" & nm2 & "\'and 交易日期 >= \'" & er("开始日期") &"\'and 交易日期 <= \'" & er("截止日期") &"\'")
                Next
            Next
            er("银行交易_借方金额") = v1
            er("银行交易_贷方金额") = v2
        End If
    End If
    dr = er
Next