以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  下拉窗口录入请教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32997)

--  作者:haoting2000
--  发布时间:2013/5/11 16:15:00
--  下拉窗口录入请教


图片点击可在新窗口打开查看此主题相关图片如下:填充.jpg
图片点击可在新窗口打开查看

下拉窗口录入,假如显示3个字段, 选择后,我希望把3个字段分别同时填到录入表的3个对应字段去,怎么弄?

 

目前的教程好像都是只填充到1个字段里去的

 

谢谢


--  作者:Bin
--  发布时间:2013/5/11 16:17:00
--  
http://www.foxtable.com/help/topics/1534.htm


--  作者:haoting2000
--  发布时间:2013/5/11 16:26:00
--  

没理解我的意思

我希望把选中的这个记录, 3个字段同时录入。 不仅仅是下拉的那个字段。 比如选择了某个客户。

 

同时把客户名称 填到  客户名称的字段去,  把地址填到地址的字段去。 联系方式填到联系方式的字段去

 

而不是  客户名称选下,仅仅填客户名称, 然后跑到地址去选一下,填地址。

 

 


--  作者:Bin
--  发布时间:2013/5/11 16:30:00
--  
都类似好不好.还有参考这里http://www.foxtable.com/help/topics/2350.htm

无非就是点击就为当前行赋值.

--  作者:XYT
--  发布时间:2013/5/11 16:30:00
--  

http://www.foxtable.com/help/topics/1458.htm

加上这个就好了


--  作者:Bin
--  发布时间:2013/5/11 16:34:00
--  
你根本就没有看我发给你的那四条帮助.

里面明明就有你要的答案

如果除了客户ID列,还要同时从客户表选择其它多列内容输入到订单表,可以将DropDownClosed事件代码改为:

If e.Selected Then \'如果选择了值
    Dim tbl As Table = Tables("窗口1_Table1")
    If
 tbl.Current IsNot Nothing 
Then
        e.Form.DropDownBox.Value = tbl.Current(
"客户ID")
        
Tables("订单").Current("其它列1") = tbl.Current("其它列1")
        Tables("订单").Current("其它列2") = tbl.Current("其它列2")
        Tables("订单").Current("其它列3") = tbl.Current("其它列3")
    End 
If
End If