Dim r As Row = Tables("表A").Currentr("帐户名") =e.Form.Controls("combobox1").Valuer("开户行") =e.Form.Controls("combobox2").Valuer("帐号") =e.Form.Controls("combobox3").Value
e.Form.Close