以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]跨表统计  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=93576)

--  作者:js4222
--  发布时间:2016/12/1 16:42:00
--  [求助]跨表统计
表A设置了加载树,表B对表A某一列进行跨表统计引用,
如何设置不管表A加载了多少,表B都是对表A所有数据进行统计,而不是只统计加载的数据
内部数据源如何设置
外部数据源又该如何设置


--  作者:有点蓝
--  发布时间:2016/12/1 16:49:00
--  
表B是怎么统计的?



--  作者:js4222
--  发布时间:2016/12/1 16:56:00
--  
以下是引用有点蓝在2016/12/1 16:49:00的发言:
表B是怎么统计的?


表B根据日期,统计同一个月内同一姓名表A的数据


--  作者:有点蓝
--  发布时间:2016/12/1 17:06:00
--  
截图说明,或者上传代码
--  作者:js4222
--  发布时间:2016/12/1 18:53:00
--  
用了sqlCompute实现了,但是就是重置列的时候会卡一下
--  作者:有点色
--  发布时间:2016/12/1 19:29:00
--  
以下是引用js4222在2016/12/1 18:53:00的发言:
用了sqlCompute实现了,但是就是重置列的时候会卡一下

 

如果用了sqlCompute,不要重置列,把代码拷贝出来,做一个按钮,写成循环每一行,compute数据。


--  作者:js4222
--  发布时间:2016/12/1 20:00:00
--  回复:(有点色)以下是引用js4222在2016/12/1 18:53:...
不懂。问题现在被我弄乱了,代码全无,急求助
--  作者:有点蓝
--  发布时间:2016/12/1 20:28:00
--  
什么代码全无?上例子看看
--  作者:js4222
--  发布时间:2016/12/1 20:30:00
--  回复:(有点蓝)什么代码全无?上例子看看
就所有表属性里面设置的都没有了。我另外发了一个求助贴了。原表被我删除了
--  作者:js4222
--  发布时间:2016/12/10 20:31:00
--  回复:(有点蓝)什么代码全无?上例子看看

If e.DataCol.Name = "姓名" Then
    If e.NewValue Is Nothing Then
        e.DataRow("计算_借支") = Nothing
    Else
        Dim Filter1 As String = "[姓名] = \'" & e.NewValue & "\'"
        Dim m1 As Integer = e.DataRow("日期").Month
        Dim y1 As Integer = e.DataRow("日期").Year
        Dim dt3 As New Date(y1, m1, 1)
        Dim dt4 As New Date(y1, m1, Date.DaysInMonth(y1, m1)) \'获取本月的最后一天
        Filter1 = filter & " and 日期 >= #" & dt3 & "# And 日期 <= #" & dt4 & "#"
        e.DataRow("计算_借支") = DataTables("借支表").sqlCompute("Sum(金额)",Filter1)
    End If
End If
帮我看看这个代码问题
1、统计不到当月最后一天的金额,其他天的都可以
2、sqlcompute重置列好卡,其他什么方式用起来比较顺手呢,还是说只能加载全部用compute

麻烦您了