主题：帮忙优化代码，应用的时候感觉卡卡的

   For Each dr As DataRow In drs
        r("收款人") = dr("收款人")
        r.Locked = True
        r.Save()
        dr("支出账户")="已对账"
        dr("日期") = Date.now
        dr("流水号") = r("应付流水")
        dr.Save()
    Next

改为：

   For Each dr As DataRow In drs
        r("收款人") = dr("收款人")
        r.Locked = True
        r.Save()
        dr("支出账户")="已对账"
        dr("日期") = Date.now
        dr("流水号") = r("应付流水")
    Next

    DataTables("支出明细").Save()