For Each dr1 As DataRow In DataTables("调货明细_张笑南").Select([调货系列号],[订单号],[调货日期],[补货渠道],[供应商],[品牌],[设计师],[购买类型],[设计师款号],[D2C款号],[D2C条码],[品名],[颜色],[尺码],[数量],[预计交货日期],[实际发货日期],[物流公司],[货运单号])
Dim dr2 As DataRow = DataTables("调货进度总表").AddNew()
For Each dc As DataCol In DataTables("调货明细_张笑南").DataCols
dr2(dc.Name) = dr1(dc.name)
加好友 
发短信
Post By：2015/11/21 10:24:00 [显示全部帖子]
此主题相关图片如下：qq截图20151121102142.jpg