以文本方式查看主题 - 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("操作表"),做各种操作或判断。 |