双击打开指定窗口，并显示指定内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 双击打开指定窗口，并显示指定内容

共有2330人关注过本帖树形打印复制链接主题：双击打开指定窗口，并显示指定内容

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/8 14:23:00 [显示全部帖子]

1、doubleclick事件

vars("批次") = e.row("生产批次")

vars("编码") = e.row("成品编码")

forms("窗口1").show

2、窗口1的afterLoad事件，写代码如

msgbox(vars("批次"))

msgbox(vars("编码"))

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/8 14:37:00 [显示全部帖子]

如果要设置筛选，这样写

Tables("某表").filter = "生产批次 = '" & vars("批次") & "' and 成品编码 = '" & vars("编码") & "'"

请自己理解所写代码，灵活变通成自己需要的。

不然，你具体的实例发上来测试。

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/8 16:20:00 [显示全部帖子]

代码改成

Dim t As Table = e.Form.controls("生产排产表").Table
t.DataTable.loadfilter = "生产批次 = '" & vars("生产批次") & "' and 成品编码 = '" & vars("成品编码") & "'"
t.DataTable.load

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/8 17:09:00 [显示全部帖子]

Dim t As Table = e.Form.controls("生产排产表").Table

t.datatable.DataCols("加工工序").RaiseDataColChanged()
t.datatable.DataCols("待加工数").RaiseDataColChanged()

下一主题 >> << 上一主题

主题：双击打开指定窗口，并显示指定内容