For Each dr As DataRow In DataTables("供应商对账表").DataRows
Dim drs As String = dr("G单号")
Dim gdh As String = drs.SubString(1,8)
Dim sq As DataRow
sq = DataTables("WH_STOCK").SQLFind("SubString([workbillno],1,8) = '"& gdh &"' and warehouse = '内仓' and inorout= 'in' AND orderdate is not null")
dr("workbillno") = sq("workbillno")
dr("SupplierName") = sq("SupplierName")
dr("CardBoard_l") = sq("CardBoard_l")
dr("CardBoard_w") = sq("CardBoard_w")
dr("material") = sq("material")
dr("sort") = sq("sort")
dr("planNumber") = sq("planNumber")
dr("InNumber") = sq("InNumber")
dr("orderdate") = sq("orderdate")
dr("issuedate") = sq("issuedate")
dr("Customerno") = sq("Customerno")
dr("Itemname") = sq("Itemname")
Next