| 以文本方式查看主题 - 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=127207) |
| -- 作者：有点甜 -- 发布时间：2018/11/8 14:23:00 -- 1、doubleclick事件
vars("批次") = e.row("生产批次") vars("编码") = e.row("成品编码") forms("窗口1").show
2、窗口1的afterLoad事件，写代码如
msgbox(vars("批次")) msgbox(vars("编码")) |
| -- 作者：有点甜 -- 发布时间：2018/11/8 14:37:00 -- 如果要设置筛选，这样写
Tables("某表").filter = "生产批次 = \'" & vars("批次") & "\' and 成品编码 = \'" & vars("编码") & "\'"
请自己理解所写代码，灵活变通成自己需要的。
不然，你具体的实例发上来测试。 |
| -- 作者：有点甜 -- 发布时间：2018/11/8 16:20:00 -- 代码改成
Dim t As Table = e.Form.controls("生产排产表").Table |
| -- 作者：有点甜 -- 发布时间：2018/11/8 17:09:00 --
Dim t As Table = e.Form.controls("生产排产表").Table t.datatable.DataCols("加工工序").RaiseDataColChanged()
|