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

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

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

 

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

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

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

 

求解。

例子发出来.有其他问题导致的

请使用上述代码之前，先在客户表建立一个“客户编辑”窗口，此窗口的设计就不再啰嗦了，记得将这个窗口的类型设置为模式窗口就行。
需要注意的是，上面的代码CloseDropDown方法使用了参数False，这样关闭下拉窗口后，DropdownClosed事件的e参数Selected等于False，这样就只是简单地关闭窗口，不会向下拉列表框写入值。

楼主能否做个例子发上来，我对这个问题有点兴趣

这个问题已经解决了吧.