主题：请问这段代码有问题么？

Dim Cols1() As String = {"productID","ID","color","weight","productNum","productRemarks","ischeck","caseNo","leaderID"}

Dim Cols2() As String = {"productID","订单ID","订单颜色","订单大小","订单数量","订单备注","订单状态","订单号码","客户ID"}

For Each dr1 As DataRow In DataTables("订单详情").Select("[id] Is not Null")

    Dim dr2 As DataRow = DataTables("新订单").AddNew()

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

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

    Next

Next

请问这段代码有问题么？ 为什么点完按钮 程序就关闭了呢？