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
上述代码很奇怪,我想在一个表中加入临时列,如果只用蓝色的部分,可以实现,但每次都要提醒已有“来源”这个列了,我想加上一个判断如果有了这一列名,就不用加了,提示到是没了,但运行时发出错误的警告,“集合已修改,可能无法执行玫举操作!”就是下面的部分不执行了,而且还报错,是什么问题?