- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]程老师，没错误也没效果了，什么数据都汇总不了啦！数据载入的空值问题！ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=30848)
-- 发布时间：2013/4/5 8:37:00
-- [求助]程老师，没错误也没效果了，什么数据都汇总不了啦！数据载入的空值问题！
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进度条，代码该怎么加？
求老师帮忙改下！
-- 发布时间：2013/4/5 8:48:00
--
if dr isnot nothing
-- 发布时间：2013/4/5 9:31:00
--
谢谢程老师，我去试试！
-- 发布时间：2013/4/5 9:37:00
--
陈老师，不行啊，改了还是一样，数值列载入的空值还是显示为0
-- 发布时间：2013/4/5 11:57:00
--
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.Contains(tab.Cols(j).Name & i+1).IsNumeric = True
If tab.cols.Contains(tab.Cols(j).Name & i+1) = 0
tab.cols.Contains(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
-- 发布时间：2013/4/5 12:16:00
--
程老师，以上代码提示这样的错误，再请程老师给代码写上注释好吗，老白，学习中。
此主题相关图片如下：未命名22.jpg
-- 发布时间：2013/4/5 14:45:00
--
还有其他老师能帮下忙吗？
-- 发布时间：2013/4/5 16:07:00
--
各位老师，大神帮下忙，在这方面我就是个上幼儿园的老白啊！
-- 发布时间：2013/4/5 16:40:00
--
早上8：30到16点30，坐等8个小时
【
-- 发布时间：2013/4/5 18:05:00
--
手误：
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