主题：[求助]数据载人！muhua大神，代码非常好，就是目的反了，再麻烦下了！

哦，反了，反了就这样吧：

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)("姓名")
                MessageBox.Show(1)
            End If
            For j As Integer = 1 To 5
                If tab.Cols(j).Name <> "姓名" Then
                    dr(tab.Cols(j).Name & i+1) =  ""
                    MessageBox.Show(1)
                    dr(tab.Cols(j).Name & i+1) = tab.Rows(i)(tab.Cols(j).Name)
                End If
            Next
        Next
    End If
Next

能不能给个注释，现在每一个单元格录入数据都要弹出框，要不停的点弹出的框才能继续录入，出错也不知道是什么原因，不知道该怎么修改！