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

For Each tab As Table In Tables

If tab.Name.Contains("文档")

For i As Integer = 0 To Tables(tab.Name).Rows.Count -1

Dim dr As DataRow = DataTables("月汇总").Find("姓名 = '" & tab.Rows(i)("姓名") & "'")

If dr Is Nothing Then
dr("姓名") = tab.Rows(i)("姓名")

End If
For j As Integer = 1 To 5

If tab.Cols(j).Name <> "姓名" Then

dr(tab.Cols(j).Name & i+1) = tab.Rows(i)(tab.Cols(j).Name)
End If
Next
Next
End If
Next

1、现在文档上的数值列为空值时，汇总表载入时就会显示0
请问怎么样才能才让月汇总表的数值载入的空值不显示0，保持空白。

2、加上一个ProgressBar1进度条，代码该怎么加？

求老师帮忙改下！

谢谢程老师，我去试试！

陈老师，不行啊，改了还是一样，数值列载入的空值还是显示为0

程老师，以上代码提示这样的错误，再请程老师给代码写上注释好吗，老白，学习中。

还有其他老师能帮下忙吗？

各位老师，大神帮下忙，在这方面我就是个上幼儿园的老白啊！

早上8：30到16点30，坐等8个小时

【

手误：

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