以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  button按钮根据窗口页面变换执行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99759)

--  作者:k931931
--  发布时间:2017/4/26 12:29:00
--  button按钮根据窗口页面变换执行
老师你好,窗口能调用吗?要怎么调用呢?比如在入库单,出库单中都需要分别选择物料编码,我目前的做法是分别做了两个弹窗
不知道有没有更好的办法呢?其中button按钮事件代码里面都涉及到了具体表,这个表可以替换为当前在哪个窗口上,自动识别为对当前窗口表进行操作吗?
还有所有单据比如(增加、删除,修改等等都一样的情况。。。)


Dim t As Table = Tables("入库单父表.入库单子表")
Dim i As Integer = t.Current.Index
t.rows(i).Delete
For Each r As Row In Tables("商品弹窗_table1").GetCheckedRows
    Dim nr As Row = t.AddNew
    nr("商品编码") = r("商品编码")
    nr("商品名称") = r("商品名称")
    nr("商品分类") = r("商品分类")
    nr("计量单位") = r("计量单位")
Next
Forms("商品弹窗").close()

--  作者:有点色
--  发布时间:2017/4/26 14:16:00
--  

弹出窗口之前,记录一下表名,如

 

vars("操作表") = Tables("表A")

Forms("窗口1").Show

 

在窗口1,直接使用 Dim t As Table = vars("操作表"),做各种操作或判断。