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