增加按钮的代码:
Tables("客户").AddNew()
Forms("客户窗口").Open()
Tables("报价").Current("客户名称") = Tables("客户").Current("客户名称")