- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自定义录入界面怎样同时录入多列信息？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=20169)
-- 发布时间：2012/5/31 11:52:00
-- 自定义录入界面怎样同时录入多列信息？
按照自定义录入界面4，制作了这么一个界面，请问当我选择客户名称的时候，怎样把其他列的内容，比如“一级分类”、“二级分类”、“联系人电话”、“联系人职务”、“联系人姓名”的内容同时填入上面那个客户信息表里呢？请教高手~
If e.Selected Then \'如果选择了值
Dim tbl As Table = Tables("选择客户_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("客户名称")
End If
e.Form.DropDownBox.CloseDropDown()
End If
现在的代码是这样的，只能录入“客户名称”一列内容
[此贴子已经被作者于2012-5-31 13:55:15编辑过]
-- 发布时间：2012/5/31 13:54:00
--
[此贴子已经被作者于2012-5-31 13:55:34编辑过]
-- 发布时间：2012/5/31 14:50:00
--
有没有人知道怎么办？
-- 发布时间：2012/5/31 15:33:00
--
If e.Selected Then \'如果选择了值
Dim tbl As Table = Tables("选择客户_Table1")
If tbl.Current IsNot Nothing Then
e.Form.DropDownBox.Value = tbl.Current("客户名称")
Tables("订单").Current("列1") = tbl.Current("列1")
Tables("订单").Current("列2") = tbl.Current("列2")
Tables("订单").Current("列3") = tbl.Current("列3")
End If
e.Form.DropDownBox.CloseDropDown()
End If