主题：Object variable or With block variable not set.

 r("city") = e.form.controls("combobox6").value
 r("name") = e.form.controls("textboxname").value

 r("zcldidariqi") = e.form.controls("DateTimePicker1").value

 r("zclshouji") = e.form.controls("textboxzclshouji").Text
 r("zclrenshu") = e.form.controls("comboboxzclrenshu").Text
 r("renzhu") = e.form.controls("comboboxzclrenzhu").value
 r("telphone") = e.form.controls("textbox6").Text
 r("zclqq") = e.form.controls("textbox7").Text
 r("zclmsn") = e.form.controls("textbox8").Text
 r("zcldazhiriqi") = e.form.controls("textboxdazhiriqi").text
 r("sex") = e.form.controls("comboboxsex").value
 r("zclqueren") = e.form.controls("comboboxzclqueren").value
 r("zclxianlu") = e.form.controls("combobox1").value
r("zclhotel") = e.form.controls("comboxhotel").value  '写入房型要求
r("zclhotelname") = e.form.controls("comboxhotelname").value '写入宾馆名
 r("zclzuijincity") = e.form.controls("combobox7").value

 r("zcldidacity") = e.form.controls("comboboxzclcity").value
 r("zclcheci") = e.form.controls("comboboxcheci").value
 r("daipairicheng") = False
 r("daipaifang") = False
 r("zcldidariqiqueding") = e.form.controls("CheckBox1").checked
 r("didian") = e.form.controls("comboboxdidian").value
 r("bumen") = user.Group
 r("zcltianjiaren") = user.name
 r("regdate") = now()

 r("来源") = e.form.controls("comboboxdingfanglaiyuan").value
 r("lianxichengdu") = e.form.controls("comboboxlianxichengdu").value

 r("zclbeizhu") = e.form.controls("textboxbeizhu").text & vbcrlf  &    User.Name & " " & Date.Now  &  "添加了这个客户"