以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎样从下拉表中传递多个值到另外一个窗口中不同的控件中去  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=112844)

--  作者:swordlife
--  发布时间:2018/1/3 23:39:00
--  [求助]怎样从下拉表中传递多个值到另外一个窗口中不同的控件中去
我新手学习Foxtable,想实现如下功能:
1、新建立了一个物料入库窗口,在窗口中设立几项信息要录入,如附件图片1画圈中所示。  在这个窗口中关联一个库存表格,
2. 按照Foxtable的使用帮助文档中的“自定义输入录入界面二”指导,依葫芦画瓢在弄,新建了另外一个下拉窗口,下拉窗口关联了“采购订单”表,但只实现了一个值的传递。而我要实现多个值的传递,请问怎么做?
3. 项目文档如附件压缩包所示。



图片点击可在新窗口打开查看

--  作者:swordlife
--  发布时间:2018/1/3 23:41:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:库存管理.rar


--  作者:swordlife
--  发布时间:2018/1/3 23:42:00
--  

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

--  作者:有点甜
--  发布时间:2018/1/4 9:38:00
--  

上传的项目要带上你的数据库,不然别人无法测试。

 

如果用【自定义录入界面之二】,那就在doubleclick事件处理即可

 

4、将Table控件的DoubleClick事件设置为:

Dim tbl As Table = Tables("窗口1_Table1")
If tbl.Current IsNot Nothing Then
    e.Form.DropDownBox.Value = tbl.Current("客户ID")

    e.Form.DropTable.Current("第一列") = tbl.Current("第一列")

    e.Form.DropTable.Current("第二列") = tbl.Current("第二列")
End If
e.Form.DropDownBox.CloseDropDown()