以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表中的代码怎么转换为按钮中的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88303)
--  作者：kaituozhe
--  发布时间：2016/7/31 11:46:00
--  表中的代码怎么转换为按钮中的代码

\'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事件中的代码，由于有时数据量非常大，导致无法运行，我想建立一个窗口，把表放在窗口中，然后用按钮实现上述功能，该怎么改呀？
--  作者：大红袍
--  发布时间：2016/7/31 11:51:00
--  

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