Dim nr = Tables("峰和设计协议统计表")
nr("客户") = e.form.controls("textbox3").text
nr("小区地址") = e.form.controls("textbox4").text
nr("楼号") = e.form.controls("textbox5").text
nr("设计师") = e.form.controls("combobox1").text
nr("市场部") = e.form.controls("combobox2").text