If fdr Is Nothing Then For Each i As Integer = 1 To adr("数量") Dim bdr DataTables("发货记录").AddNew bdr("订单号") = adr("订单号") bdr("客户要求产品名称") = adr("客户要求产品名称") bdr("客户要求产品型号") = adr("客户要求产品型号") bdr("项目单位") = adr("项目单位") bdr("发货单号") = adr("发货凭证号") Next End If