主题：引用数据的为题？

For Each dr1 As DataRow In DataTables("行政案件").Select("[案件编号] = [@行政案件1,案件编号]")
    Dim dr2 As DataRow = DataTables("行政案件1").AddNew()
    For Each dc As DataCol In DataTables("行政案件").DataCols
        dr2(dc.Name) = dr1(dc.name)
    Next
Next

     上面的代码有什么问题？我“行政案件1”表有“案件编号”这列呀为什么会下面的提示？

此主题相关图片如下：2121.jpg

没人可以帮帮我吗？