Dim idx As Row = Tables("表名").Rows.Count - 1
Dim r as Row = Tables("表名").rows(idx)
Forms("窗口").controls("控件").Text = r("金额")