主题：有关复制到新表的问题

以下代码是把cg2中[C111］不为空的行复制到cg3中，但怎么就实现不了，请教！

Dim Cols1() As String = {"C1","C2","C3"}
Dim Cols2() As String = {"C1","C2","C3"}
For Each dr1 As DataRow In DataTables("cg2").Select("[C111] Is Null")

Dim dr2 As DataRow = DataTables("cg3").AddNew()

     For i As Integer = 0 To Cols1.Length -1

     dr2(Cols2(i)) = dr1(Cols1(i))

     Next

Next

MainTable = Tables("cg3")