主题：[求助]大神帮我看下，笨死我算了

For Each d1 As String In FileSys.GetDirectories("g:\ce shi wen jian jia")
    Dim dr As DataRow = DataTables("表A").AddNew()
    dr("第一列") = filesys.GetName(d1)
    For Each d2 As String In FileSys.GetDirectories(d1)
        Dim dr As DataRow = DataTables("表A").AddNew
        dr("第二列") = filesys.GetName(d2)
        For Each d3 As String In FileSys.GetDirectories(d2)
            Dim dr As DataRow = DataTables("表A").AddNew()

你不能反复这样声明DR  会冲突,系统搞不清楚谁和谁, 你改为drr 或者dr8  改为不同的变量名