主题：表中的代码怎么转换为按钮中的代码

'If e.DataCol.name = "余额" Then
    'Dim dr As DataRow = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") '找出上一行
    'If dr Is Nothing Then
        'e.DataRow("借贷方") = "贷"
    'Else
        'If e.DataRow("余额") > dr("余额")
            'e.DataRow("借贷方") = "贷"
        'Else
            'e.DataRow("借贷方") = "借"
        'End If
    'End If
'End If
'If e.DataCol.name = "借贷方" Then
    'If e.DataRow("借贷方") = "贷" Then
        'e.DataRow("贷方金额") = e.DataRow("交易金额")
    'Else
        'e.DataRow("借方金额") = e.DataRow("交易金额")
    'End If
'End If

上述代码是一个表中datacolchange事件中的代码，由于有时数据量非常大，导致无法运行，我想建立一个窗口，把表放在窗口中，然后用按钮实现上述功能，该怎么改呀？

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