开单按钮事件,其它按钮控制方法一样,参考处理
If e.Sender.Text = "开单"
Tables("业务估价").Rows.AddNew()
e.Sender.Text = "取消"
e.Form.Controls("Button1").Enabled = False
e.Form.Controls("Button3").Enabled = True
Else
e.Sender.Text = "开单"
DataTables("业务估价").RejectChanges
e.Form.Controls("Button1").Enabled = True
e.Form.Controls("Button3").Enabled = False
End If