主题：填充代码问题

Dim cls() As String = { "调货系列号","订单号","调货日期","补货渠道","供应商","品牌","设计师","购买类型","设计师款号","D2C款号","D2C条码","品名","颜色","尺码","数量","预计交货日期","实际发货日期","物流公司","货运单号" }

For Each dr1 As DataRow In DataTables("调货明细_张笑南").DataRows
    Dim dr2 As DataRow = DataTables("调货进度总表").AddNew()
    For Each dc As String In cls
        dr2(dc) = dr1(dc)
    Next
Next