主题：交叉表代码出错，求助修改

0不能做被除数，小学老师就教了，所以计算机上也是不允许的！

当您的所有行里面有一个空白行，也会出现r("合计_投工")和r("投工_" & j)等于0的情况，您的问题或许出现在这里，前两行改一下：

Dim ny As String = Forms("数据载入").Controls("ComboBox1").Text

if ny is nothing then

      MessageBox.Show("录入的有效信息不完整！")

    Return

else
    Dim nf As String = Left(ny,4)

end if

这里的i有可能成为负数，

Dim i As Integer =(Tables("分月厂家工效").Cols.Count-6)/4

不知道您为何要减去6

当Cols.Count小于6时也会报错

这里同样会有错误要一直错下去：

Dim drs1 As List(Of DataRow) = t.DataTable.Select("[单位] <> '合计'","合计_工效 DESC")
For n As Byte = 0 To drs1.Count - 1 '遍历所有行
If n > 0 AndAlso drs1(n)("合计_工效") = drs1(n-1)("合计_工效") Then '如果"合计_工效"和上一行相同
drs1(n)("合计_名次") = drs1(n-1)("合计_名次") '则排名等于上一行
Else
drs1(n)("合计_名次") = n + 1 '设置名次
End If
Next

应该改为：

Dim drs1 As List(Of DataRow) = t.DataTable.Select("[单位] <> '合计'","合计_工效 DESC")

if drs1.Count > 0
    For n As Byte = 0 To drs1.Count - 1 '遍历所有行

        If n > 0 AndAlso drs1(n)("合计_工效") = drs1(n-1)("合计_工效") Then '如果"合计_工效"和上一行相同
            drs1(n)("合计_名次") = drs1(n-1)("合计_名次") '则排名等于上一行
        Else
            drs1(n)("合计_名次") = 1 '设置名次
        End If
    Next

end if

哦，我错了，这里没问题，删除之！

您应该在解决一个问题后看看那后面的报错界面与原来有什么不同，逐个截图报上来，也许好分析一点！