主题：集合函数Count计算出错

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

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

则提示出错！

请各位帮忙！

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

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

 

老六你看一下过段代码，把“nn"改成实际的列名就可以，用变量nn就报错，请帮忙解决一下这个问题！谢谢

"count(" & nn & ")"

是不是这样就行了

着忙了，哈哈