Dim dr As DataRow = Nothing For Each er As DataRow In DataTables("银行明细").Select("", "_sortkey") 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 dr = er Next
|