主题：自定义录入

老师，我用自定义录界面四： 

e.Form.DropDownBox.CloseDropdown(False)
Dim r As Row = Tables("客户").AddNew()
Forms("客户编辑").Open()
r.Save()
e.Form.DropDownBox.Value = r("客户ID")

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

现在我想同时添加新的增加的公司地址，电话，联系人等，不光是自动增加客户ID，不知该怎样写，谢谢！

那就先增加到相应的表中去吧，如

Dim r As Row = Tables("客户").AddNew()

r("公司地址") = "指定地址"

……

非常感谢，问题解决了！