以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 添加物料窗体如何在出库窗体引用 (http://foxtable.net/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
|