已经全部注释了
'For Each dt As DataTable In DataTables
'dt.Load()
'Next
''将渠道表完结后整数列为0的单元格全部改为nothing
'Dim t As Table = Tables("其他渠道")
'For Each r As Row In t.rows
'For Each c As Col In t.cols
'If c.IsNumeric AndAlso r(c) = 0 Then
'r(c) = Nothing
'End If
'Next
'Next
'
'Dim t1 As Table = Tables("渠道表")
'For Each r1 As Row In t1.rows
'For Each c1 As Col In t1.cols
'If c1.IsNumeric AndAlso r1(c1) = 0 Then
'r1(c1) = Nothing
'End If
'Next
'Next
'
'Dim t2 As Table = Tables("个人")
'For Each r2 As Row In t2.rows
'For Each c2 As Col In t2.cols
'If c2.IsNumeric AndAlso r2(c2) = 0 Then
'r2(c2) = Nothing
'End If
'Next
'Next
''用数组来解决
'Dim ts() As Table = {Tables("其他渠道"),Tables("渠道表"),Tables("个人")}
'For Each t As Table In ts
'For Each r As Row In t.rows
'For Each c As Col In t.cols
'If c.IsNumeric AndAlso r(c) = 0 Then
'r(c) = Nothing
'End If
'Next
'Next
'Next