以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]统计的表达式？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=48785)
--  作者：hsh2055
--  发布时间：2014/4/4 22:19:00
--  [求助]统计的表达式？

表A：

    id   长度8米    长度9米   长度10米

     a        1             1           2  

     b        1             2           1

 

表B：

    id   长度（米）

     a        8

     b        8

     a        9

     b        9

     b        9

     a       10

     a       10

     b       10

 

表A为父表，表B为子表，表A中的【长度8米】【长度9米】【长度10米】3个字段用于统计表B中的不同长度的个数，表达式如何写？

[此贴子已经被作者于2014-4-5 21:11:54编辑过]
--  作者：hsh2055
--  发布时间：2014/4/4 22:30:00
--  

我顶
--  作者：hsh2055
--  发布时间：2014/4/5 7:07:00
--  

我顶
--  作者：lsy
--  发布时间：2014/4/5 8:44:00
--  

直接用表达式，好像不行。

表A,DataColChanged

Select Case  e.DataCol.Name
    Case "关联列"

            e.DataRow("长度8米") = DataTables("表B").Compute("Count(长度)","长度 = 8 And 关联列 = \'" & e.DataRow("关联列") & "\'")

            e.DataRow("长度9米") = DataTables("表B").Compute("Count(长度)","长度 = 9 And 关联列 = \'" & e.DataRow("关联列") & "\'")

            e.DataRow("长度10米") = DataTables("表B").Compute("Count(长度)","长度 = 10 And 关联列 = \'" & e.DataRow("关联列") & "\'")
End Select
--  作者：hsh2055
--  发布时间：2014/4/5 21:09:00
--  
lsy老师 还是不行。是不是代码有错误。
[此贴子已经被作者于2014-4-5 21:11:02编辑过]
--  作者：lsy
--  发布时间：2014/4/6 7:47:00
--  

例子发上来。

代码不是照抄，要根据你的实际，改动一下。