主题：请教关于自定义界面之四增加客户返回时出错。

此主题相关图片如下：自定义录入界面之四.png

此主题相关图片如下：增加客户后关闭客户档案窗口返回时提示出错.png

根据帮助文件中“自定义界面之四”设计了一个下拉窗口的【增加客户】按钮，但是在增加客户后关闭客户档案窗口返回时提示出错，如上图。

提示出错位置的代码如下：

e.Form.DropDownBox.CloseDropdown(False)
Dim r As Row = Tables("KHDA").AddNew()
Forms("客户档案").Show()
r.Save()
e.Form.DropDownBox.Value = r("KHBM")

求解。