如何双击窗口表打开不同的其它窗口 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何双击窗口表打开不同的其它窗口

共有1851人关注过本帖树形打印复制链接主题：如何双击窗口表打开不同的其它窗口

ts9277

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

加好友

发短信

等级：童狐帖子：211 积分：1948 威望：0 精华：0 注册：2017/3/6 20:47:00

如何双击窗口表打开不同的其它窗口 发帖心情

Post By：2019/4/9 20:47:00 [只看该作者]

此主题相关图片如下：4-9.jpg

此主题相关图片如下：4-9-2.jpg

老师我想问：

窗口的表是由表的FILL 方法生成的，根据右边的组合框的列表加载相应的内容，

代码如下：

Case "产品信息"

Dim fit As String="Select 产品编号,产品名称,研发负责人,模具负责人 Fro m {产品信息} where 产品名称='" & tx & "'"

t.Fill(fit,"外部数据-1",True)

Case "数据更改统计表"

Dim fit As String="Select 产品名称,接收时间,备注说明 Fro m {数据更改统计表} where 产品名称='" & tx & "'"

t.Fill(fit,"外部数据-1",True)

如果生成的是产品信息内容，双击表中某一行，打开窗口A

如果生成的是数据更改统计表的内容，双击表中某一行，打开窗口B

这个如何实现

[此贴子已经被作者于2019/4/9 20:49:06编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：107739 积分：548028 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/4/9 20:56:00 [只看该作者]

Case "产品信息"

Dim fit As String="Select 产品编号,产品名称,研发负责人,模具负责人 Fro m {产品信息} where 产品名称='" & tx & "'"

t.Fill(fit,"外部数据-1",True)

vars("当前表") = “产品信息”

Case "数据更改统计表"

Dim fit As String="Select 产品名称,接收时间,备注说明 Fro m {数据更改统计表} where 产品名称='" & tx & "'"

t.Fill(fit,"外部数据-1",True)

vars("当前表") = “数据更改统计表”

双击事件

if vars("当前表") = “产品信息” then

打开窗口A

else

打开窗口B

end if

ts9277

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

加好友

发短信

等级：童狐帖子：211 积分：1948 威望：0 精华：0 注册：2017/3/6 20:47:00

Post By：2019/4/9 21:42:00 [只看该作者]

好的，谢谢老师

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

主题：如何双击窗口表 打开不同的其它窗口

主题：如何双击窗口表打开不同的其它窗口