主题：[求助]一个AfterSelChange做个小功能。

代码放在CurrentChanged事件中比较合理，这样换行才执行，代码为：

Dim n1 As  String =  e.Table.Current("费用预算单号")
Dim Total As Integer = DataTables("费用报销").Compute("Sum(报销金额)","费用预算单号 = '"& n1 &"' ")
Dim dr As DataRow =  DataTables("费用预算").Find("预算单号 = '"  & n1 & "'")
Dim msg As String = "此单号费用预算已经花费:" &  Total & "元"
If dr IsNot Nothing Then
    msg = msg & "  总预算为:" & dr("预算金额")
End If
StatusBar.Message1 = msg