主题：增加列出错

             For Each dc As DataCol In DataTables("统计表").DataCols
                If dc.Name = "来源" Then
                Else
                    DataTables("统计表").DataCols.Add("来源", Gettype(String))
                End If
            Next

           
            'Tables("管理_Table2").Filter = ""
            Dim dt As DataRow
           
            For Each dr As Row In Tables("管理_Table2").Rows
                dt = DataTables("登记表").Find("编号 = '" & dr("编号") & "'")
                dr("来源") = dt("来源")
            Next
上述代码很奇怪，我想在一个表中加入临时列，如果只用蓝色的部分，可以实现，但每次都要提醒已有“来源”这个列了，我想加上一个判断如果有了这一列名，就不用加了，提示到是没了，但运行时发出错误的警告，“集合已修改，可能无法执行玫举操作！”就是下面的部分不执行了，而且还报错，是什么问题？

因为,你这样判断是错的.你这样岂不是每列判断一下不是来源就去新增一次来源列?

  For Each dc As Col In Tables("表A").Cols

 

可我在进行查询时，又出现第一次按要求找到相关项，但再次查找时，第一没查找到的部分，新增加列里的内容被清空了，所以再也找不到别的了，只执行一次正确结果。

把你例子发出来看看.