主题：焦点录入计算数值

现在设计一个找平按钮，想计算光标所在行单号的借方总金额与贷方总金额的差填在光标所在单元格，所谓的借方总金额与贷方总金额不包括光标所在的单元格，这个代码怎样写呢？

Dim r As Row = Tables("表A").current

r("第一列") = r("借方总金额") - r("贷方总金额")

 

具体问题，请做一个具体的实例发上来测试。

具体光标所在列有可能在借方也在可能在贷方列，加上差异额不计算当前行的借贷方金额

 

贴出你所写的代码，以及所出现的问题，或者，具体实例发上来测试。

 

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

点击浏览该文件:管理项目1.rar

Dim t As Table = Tables("表B")
Dim r As Row = t.Current
Dim cname As String = t.Cols(t.ColSel).name
Dim sum1 As Double = t.Compute("sum(借方)", "单号='" & r("单号") & "' and _Sortkey < " & r("_sortkey"))
Dim sum2 As Double = t.Compute("sum(贷方)", "单号='" & r("单号") & "' and _Sortkey < " & r("_sortkey"))
msgbox(sum1)
msgbox(sum2)
If cname = "借方" Then
    r(cname) = sum2-sum1
ElseIf cname = "贷方" Then
    r(cname) = sum1-sum2
Else
    msgbox("没有选中列")
End If

多谢有点甜老师，学习了