以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  添加物料窗体如何在出库窗体引用  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=120457)
--  作者：有点蓝
--  发布时间：2018/6/16 10:03:00
--  
现在不是已经可以引用了吗？

如果要增加一个客户名称进行筛选，窗口增加一个文本框，输入和合并条件即可
--  作者：有点蓝
--  发布时间：2018/6/16 10:27:00
--  
订单明细和出库明细表CellButtonClick事件

If e.Col.Name = "物料编号" Then
    e.Cancel = True \'取消默认动作
    vars("table") = "订单主表" \'出库明细改为“出库主表”
    Forms("添加物料").Open()
End If

查询窗口AfterLoad

Tables("添加物料_添加物料信息表").Filter = "客户名称 = \'" & Tables(vars("table")).Current("客户名称") & "\'"
Dim wlmc As WinForm.ComboBox = e.Form.Controls("物料名称")
wlmc.ComboList = DataTables("物料明细").GetComboListString("物料名称","客户名称 = \'" & Tables(vars("table")).Current("客户名称") & "\'" )
--  作者：有点蓝
--  发布时间：2018/6/16 11:34:00
--  
参考5楼的用法，自己改改双击事件
--  作者：有点蓝
--  发布时间：2018/6/16 14:21:00
--  
怎么改的？贴出完整代码
--  作者：有点甜
--  发布时间：2018/6/17 14:54:00
--  

打开窗口的时候，记录表格名字，如

 

If e.Col.Name = "物料编号" Then
    e.Cancel = True \'取消默认动作
    vars("table") = e.table.name
    Forms("添加物料").Open()
End If
 
----------------------------
 
赋值的时候，判断表名，如
 
msgbox(vars("table")
If vars("table") = "订单主表.订单明细" then
    \'一种赋值
ElseIf vars("table") = "订单主表.订单明细" then
    \'另一种赋值
End If