集合函数Count计算出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 集合函数Count计算出错

共有12659人关注过本帖树形打印复制链接主题：集合函数Count计算出错

pyh6918

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

加好友

发短信

等级：五尾狐帖子：1135 积分：11105 威望：0 精华：2 注册：2008/9/1 10:45:00

集合函数Count计算出错 发帖心情

Post By：2011/5/31 16:24:00 [只看该作者]

rr = Tables("基本设置").Compute("Count(A列)", nn & "= '" & u & "'")
如果把“A列”换成变量 bl

rr = Tables("基本设置").Compute("Count(bl)", nn & "= '" & u & "'")

则提示出错！

请各位帮忙！

pyh6918

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

加好友

发短信

等级：五尾狐帖子：1135 积分：11105 威望：0 精华：2 注册：2008/9/1 10:45:00

Post By：2011/5/31 16:27:00 [只看该作者]

此主题相关图片如下：qq截图20110531162637.bmp

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2011/5/31 16:40:00 [只看该作者]

没有名为“nn”的列

pyh6918

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

加好友

发短信

等级：五尾狐帖子：1135 积分：11105 威望：0 精华：2 注册：2008/9/1 10:45:00

Post By：2011/5/31 16:45:00 [只看该作者]

Dim nns As String() = {"领导包片","职工包社1","职工包社2","职工包社3","职工包社4","职工包社5","职工包社6","职工包社7","职工包社8","职工包社9","职工包社10"}
For Each nn As String In nns
    Dim us As List(Of String)
    us = DataTables("基本设置").GetUniqueValues("", nn)
    For Each u As String In us
        Dim ww As Double
        Dim rr As Double
        ww = Tables("基本设置").Compute("Sum(系数)", nn & "= '" & u & "'")
        rr = Tables("基本设置").Compute("Count(nn)", nn & "= '" & u & "'")
        For Each jj As DataRow In DataTables("数据").DataRows
            If jj("编号")=u Then
                jj("得分合计")=Math.Floor((ww/rr)*100+0.5)/100
            End If
        Next
    Next
Next