以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问这段代码有问题么？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33893)
--  作者：jinzhengbe
--  发布时间：2013/5/27 0:35:00
--  请问这段代码有问题么？
 

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

 

请问这段代码有问题么？ 为什么点完按钮 程序就关闭了呢？
--  作者：程兴刚
--  发布时间：2013/5/27 2:33:00
--  
Select("[id] Isnot nothing")
[此贴子已经被作者于2013-5-27 2:33:13编辑过]
--  作者：狐狸爸爸
--  发布时间：2013/5/27 9:47:00
--  
这个得看你代码写在那里？