以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  临时表不能关联  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=135560)

--  作者:库玛陈
--  发布时间:2019/5/29 13:56:00
--  临时表不能关联

结构有 1数据仓表)2(查询表)

建立了一个窗口名为(查询窗口)

(查询窗口)有两个Table表, Table1绑定的临时表用于条件筛选然后产生数据点击里面的数据,Table2显示Table1订单的详细信息

 

但临时表不能关联,请问有别的办法关联数据仓表的数据吗?

因为我刚学还在看使用指南,先急用这个希望各位大神能帮助一下


想要的结果如

[此贴子已经被作者于2019/5/29 17:10:42编辑过]

--  作者:有点甜
--  发布时间:2019/5/29 14:34:00
--  

编写currentChanged事件

 

Dim t As Table = Tables("窗口1_Table2")
With e.table
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "产品编号 = \'" & .Current("产品编号") & "\'"
    End If
End With


--  作者:库玛陈
--  发布时间:2019/5/29 15:34:00
--  
上面图片上的数据都是我手动打上去的。需要那些才能生成图片上的效果。所有数据是取数据仓的数据。因为我刚学弄这个。录入我就直接入了到数据仓,没有其它表跳转
[此贴子已经被作者于2019/5/29 15:34:11编辑过]

--  作者:有点甜
--  发布时间:2019/5/29 15:36:00
--  

编写currentChanged事件

 

Dim t As Table = Tables("窗口1_Table2")
With e.table
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "产品编号 = \'" & .Current("产品编号") & "\'"
    End If
End With

 

不会做请上传具体项目测试


--  作者:库玛陈
--  发布时间:2019/5/29 15:49:00
--  
已上传
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:尾部统计系统.rar


--  作者:有点甜
--  发布时间:2019/5/29 16:00:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:尾部统计系统.table


--  作者:库玛陈
--  发布时间:2019/5/29 16:15:00
--  
怎么没有变化
--  作者:有点甜
--  发布时间:2019/5/29 16:22:00
--  

点击不同的行,下表显示不同的内容啊。

 

或者你说明如何测试。


--  作者:库玛陈
--  发布时间:2019/5/29 16:26:00
--  
我把加载项目全局事件currentChanged
Dim t As Table = Tables("窗口1_Table2")
With e.table
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "产品编号 = \'" & .Current("产品编号") & "\'"
    End If
End With

然后点击提示。不存在名为“窗口1_Table2”的Table

--  作者:有点甜
--  发布时间:2019/5/29 17:25:00
--  


If Tables.contains("窗口1_Table2") Then   
    Dim t As Table = Tables("窗口1_Table2")
    With e.Table
        If .Current Is Nothing Then
            t.Filter = "False"
        Else
            t.Filter = "产品编号 = \'" & .Current("产品编号") & "\'"
        End If
    End With   
End If