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

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

则提示出错！

请各位帮忙！

没有名为“nn”的列

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 & ")"

是不是这样就行了

rr = Tables("基本设置").Compute("Count(“ & nn & ”)", nn & "= \'" & u & "\'")
 
建议你看看：
http://help.foxtable.com/topics/1284.htm