主题：[求助]FOR .....NEXT

没密码，进不去

程序太复杂了，要理清结构感觉很费力
不知道能不能把问题简化一下。


另外，发现你好多地方都这样试用了：
For Each r As DataRow In Tables("表A").DataRows
    If r IsNot Nothing Then
         代码……
    End If

Next

这里If判断r是否为nothing感觉没必要。
如果表A没有数据，DataRows为空集合，是不会执行中间的代码。