主题：[求助]代码求助（已解决）

项目对全年的报酬情况进行汇总分析
操作：打开项目后，在数据汇总表的加载树选择加载所有行，然后在报酬明细表点击个人汇总，生成个人年度汇总的交叉统计表。
问题：如何在合计_考核月数列生成在册月份的数据（也就是报酬合计_1_2_3...不为空（包括0）的月数），以便取得合计_月均报酬的正确值。

请各位老师帮助指教，谢谢！！

谢谢hhbb老师的回复！！

问题是代码不知如何写，没有头绪。

谢谢hhbb和狐爸老师的帮助指教，都怪学生才学粗浅，不得要领，以上代码应该如何加到按钮代码中，还望指教。谢谢！！

狐爸老师的代码运行后全部等于9，显然是不正确的，可能是我没有表述清楚，应该是每一行报酬合计_x不为空的个数。

自己试了一下，还是不行，代码报错。

Dim t As Table = Tables("个人年度汇总")
Dim i As Integer =(Tables("个人年度汇总").Cols.Count-5)/4
t.DataTable.DataCols.Add("合计_考核月数", Gettype(Double),0)
For Each r As Row In t.Rows
    Dim k As Double = Nothing
    For j As Byte = 1 To i
         k + =" + IIF([报酬合计_ "& i &"] Is  Null ,0,1)"
    Next
    r("合计_考核月数") = k
Next
t.DataTable.DataCols.Add("合计_月均报酬", Gettype(Double),"[合计_报酬合计]/[合计_考核月数]")

这样可以了：

For Each dr As DataRow In DataTables("个人年度汇总").DataRows
    Dim cnt As Integer = 0
    For Each dc As DataCol In DataTables("个人年度汇总").DataCols
        If dr.isnull(dc.name)  = False AndAlso dc.name.StartsWith("报酬合计_")  Then
            cnt = cnt +1
        End If
    Next
    dr("合计_考核月数") = cnt
Next