主题：[求助]按钮代码完善

 Dim ybz As WinForm.TextBox = e.Form.Controls("原补助标准")
Dim xbz As WinForm.TextBox = e.Form.Controls("现补助标准")
Dim rq As WinForm.DateTimePicker = e.Form.Controls("执行日期")
Dim pzh As WinForm.TextBox = e.Form.Controls("审批编号")
Dim bz As WinForm.TextBox = e.Form.Controls("备注")

If xbz.Value = ybz.Value Then   '若现补助标准与原补助标准的值均相同
MessageBox.Show("补助标准未发生变化!")
ElseIf xbz.Value = "" Then   '若现补助标准未输入内容
MessageBox.Show("未输入现补助标准!")
ElseIf pzh.Value = "" Then   '若审批编号未输入内容
MessageBox.Show("未输入审批编号!")
ElseIf rq.text = "" Then   '若审批编号未输入内容
MessageBox.Show("未输入执行日期!")
Else

Dim r0 As Row = Tables("基础信息").Current  
Dim r As Row = Tables("补助标准").AddNew
r("遗属身份证号码") = r0("遗属身份证号码")
r("原补助标准") = r0("月补助标准")
r("现补助标准") = xbz.Value
r("执行日期") = rq.Value
r("审批编号") = pzh.Value
r("备注") = bz.Value

r0("月补助标准") = xbz.Value
e.Form.Close