Dim drd As DataRow
Dim c As DataRow
Dim x As Integer
Dim i As Integer
i = 0
For x=0 To DataTables("顺丰_华伟订单").DataRows.count - 1
drd = DataTables("顺丰_华伟订单").DataRows(x)
Dim d As String = drd("运单号")
Dim drs As List(Of DataRow)
drs = DataTables("顺丰账务总表").Select("[运单号码]=" & "'" & d & "'" )
For Each dr As DataRow In drs
Tables("顺丰_华伟对账表").AddNew()
c = DataTables("顺丰_华伟对账表").DataRows(i)
c("序号") = dr("序号")
c("日期") = dr("日期")
c("运单号") = dr("运单号码")
c("寄件组织名称") = drd("寄件组织名称")
c("寄件人") = drd("寄件人")
c("收件人") = drd("收件人")
c("收件组织编码") = drd("收件组织编码")
c("收件组织名称") = drd("收件组织名称")
c("收件地址") = drd("收件地址")
c("备注") = drd("备注")
c("对方地区") = dr("对方地区")
c("对方公司名称") = dr("对方公司名称")
c("计费重量") = dr("计费重量")
c("产品类型") = dr("产品类型")
c("付款方式") = dr("付款方式")
c("费用元") = dr("费用(元)")
c("折扣促销") = dr("折扣/促销")
c("应付金额") = dr("应付金额")
c("经手人") = dr("经手人")
c("增值费用") = dr("增值费用")
i = i+1
Next
i = DataTables("顺丰_华伟对账表").DataRows.count
Next