If CurrentTable.Rows.Count = 0 Then msgbox("没有数据")Else Dim r As Row = CurrentTable.Rows(CurrentTable.Rows.Count-1) e.Form.Controls("公账框").Text = r("余额")End If