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

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

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

此主题相关图片如下：未命名22.jpg

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

 

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

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

 

 

 

 

 

 

【

现在提示的错误如下，另外加上一个ProgressBar1进度条，代码该怎么加？

此主题相关图片如下：555666.jpg

不好意思，程老师，还得麻烦你，现在代码无错误，但是无效果，运行后，什么数据都加载不到月汇总表上了！运行后，虽然没0，但是月汇总表上一片空白，什么数据也没加载上！

程老师，可以不可以这样，在数据汇总完后，对月汇总表的数值列进行一次清零,如果可以，代码怎么写？