for each r as row in Tables("新增订单_Table1").rows
Dim dr As DataRow = DataTables("订单详细").addnew
dr("xxx") = r("xxx")
next
加好友 
发短信
Post By：2014/3/1 9:17:00 [显示全部帖子]
