以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自定义录入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22813)

--  作者:gzyt
--  发布时间:2012/8/24 13:44:00
--  自定义录入

老师,我用自定义录界面四: 

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,不知该怎样写,谢谢!


--  作者:czy
--  发布时间:2012/8/24 13:51:00
--  

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

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

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

……


--  作者:gzyt
--  发布时间:2012/8/24 14:36:00
--  

非常感谢,问题解决了!