关于窗口中的临时表，关联表~~~ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于窗口中的临时表，关联表~~~

共有7507人关注过本帖树形打印复制链接主题：关于窗口中的临时表，关联表~~~

有点甜

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

加好友

发短信

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

Post By：2014/5/13 22:45:00 [显示全部帖子]

编写统计表的currentChanged代码。

Tables("产品表").Filter = "产品编号 = '" & Tables("统计表").Current("产品编号") & "'"

有点甜

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

加好友

发短信

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

Post By：2014/5/13 22:55:00 [显示全部帖子]

以下是引用wealthwind在2014-5-13 22:52:00的发言：
老师你是不是搞错了，统计表是临时表，根本没有可编辑的地方额？？

表控件改成sqlquery类型或者副本表，就可以有事件了，在窗口那里

有点甜

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

加好友

发短信

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

Post By：2014/5/13 23:00:00 [显示全部帖子]

以下是引用wealthwind在2014-5-13 22:55:00的发言：
老师是不是搞错了，统计表是临时表，根本没有地方可以编辑额~

呃，看5楼。在表控件->事件那里写代码

有点甜

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

加好友

发短信

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

Post By：2014/5/14 10:06:00 [显示全部帖子]

以下是引用wealthwind在2014-5-14 10:03:00的发言：
只要达到~~点击统计表，右侧的“产品信息”能显示相关内容即可~~包括图片~~

所给的例子一塌糊涂，数据都不加载，订单数据一条都没有。

代码如下

If Tables("配货数据_Table1").Current.IsNull("产品编码") = False Then
    Dim idx As Integer = Tables("产品vlookup").FindRow(" 产品编码 = " & Tables("配货数据_Table1").Current("产品编码"))
    If idx > -1 Then
        Tables("产品vlookup").Position = idx
    End If
End If

有点甜

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

加好友

发短信

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

Post By：2014/5/14 10:07:00 [显示全部帖子]

再改一下

If Tables("配货数据_Table1").Current.IsNull("产品编码") = False Then
    Dim idx As Integer = Tables("产品vlookup").FindRow(" 产品编码 = " & val(Tables("配货数据_Table1").Current("产品编码")))
    If idx > -1 Then
        Tables("产品vlookup").Position = idx
    End If
End If

有点甜

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

加好友

发短信

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

Post By：2014/5/14 10:52:00 [显示全部帖子]

老兄，你能不能进步？

If Tables("配货数据_Table1").Current.IsNull("产品编码") = False Then
    Dim idx As Integer = Tables("产品vlookup").FindRow(" 产品编码 = " & val(Tables("配货数据_Table1").Current("产品编码") & " and 产品名称 = '" & Tables("配货数据_Table1").Current("产品") & "' "))
    If idx > -1 Then
        Tables("产品vlookup").Position = idx
    End If
End If

[此贴子已经被作者于2014-5-14 10:52:17编辑过]

有点甜

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

加好友

发短信

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

Post By：2014/5/14 14:59:00 [显示全部帖子]

把代码写到各自的对应的双击事件里去

If eTable.Current.IsNull("产品编码") = False Then
    Dim idx As Integer = Tables("产品vlookup").FindRow(" 产品编码 = " & val(e.Table.Current("产品编码") & " and 产品名称 = '" & e.Table.Current("产品") & "' "))
    If idx > -1 Then
        Tables("产品vlookup").Position = idx
    End If
End If

有点甜

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

加好友

发短信

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

Post By：2014/5/14 15:48:00 [显示全部帖子]

那不可能。可能原因

1、你的产品表没有加载完全部的数据，导致查不到这一行；

2、你的窗口控件，并没有绑定产品表的列；

3、如果还查不出原因，请上传例子（备注，是完善的、可以直接测试操作的例子）

[此贴子已经被作者于2014-5-14 15:48:09编辑过]

有点甜

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

加好友

发短信

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

Post By：2014/5/14 16:52:00 [显示全部帖子]

看了一下，顺序不对，订单表的doubleclick事件如下

If e.Table.Current.IsNull("产品编码") = False Then
    Dim idx As Integer = Tables("产品vlookup").FindRow(" 产品编码 = " & val(e.Table.Current("产品编码") & " and 产品名称 = '" & e.Table.Current("产品") & "' "))
    If idx > -1 Then
        Tables("产品vlookup").Position = idx
    End If
End If
Forms("产品信息").Open()

有点甜

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

加好友

发短信

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

Post By：2014/5/14 17:34:00 [显示全部帖子]

以下是引用wealthwind在2014-5-14 17:05:00的发言：

那老师，你按菜单中的，分组统计，然后如何实现，点击生成的临时统计表，也能打开这个产品信息窗口，并显示信息呢？？因为我尝试过了，临时统计表无法双击，而且没有表属性可以编辑。。。

方法一：临时统计表，事件写在全局表事件那里，生成统计表的时候，把统计表的全局表事件开启一下。

http://www.foxtable.com/help/topics/0671.htm

方法二：把临时统计表放在一个窗口里，在窗口里显示这个临时表。

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

总数 13 1 2 下一页

主题：关于窗口中的临时表，关联表~~~