主题：[求助]程老师，没错误也没效果了，什么数据都汇总不了啦！数据载入的空值问题！

手误：

For Each tab As Table In Tables
    If tab.Name.Contains("文档")
        For i As Integer = 0 To tab.Rows.Count -1
            If  tab.Rows(i).Isnull("姓名") = False
                Dim dr As DataRow = DataTables("月汇总").Find("姓名 = '" & tab.Rows(i)("姓名") & "'")
                If dr IsNot Nothing Then
                    dr("姓名") = tab.Rows(i)("姓名")
                    For j As Integer = 1 To Math.min(5,tab.Cols.Count-1)
                        If tab.Cols(j).Name <> "姓名" Then
                            If tab.cols.Contains(tab.Cols(j).Name & i+1) = True
                                If tab.cols(tab.Cols(j).Name & i+1).IsNumeric = True
                                    If tab.rows(i)(tab.Cols(j).Name & i+1) = 0
                                        tab.rows(i)(tab.Cols(j).Name & i+1) = Nothing
                                    Else
                                        dr(tab.Cols(j).Name & i+1) = tab.Rows(i)(tab.Cols(j).Name)
                                    End If
                                End If
                            End If
                        End If
                    Next
                End If
            Else
                Continue For
            End If
        Next
    End If
Next

再看10楼，改过来了，复制惹得祸！