For Each r As Row In Tables("订单").Rows
If r("订单状态") = "未完结" Then
Dim drs As List(Of DataRow)
drs = DataTables("临时表").Select("订单号= \'" & r("订单号") & "\'")
If drs IsNot Nothing Then
Dim hs As Integer = drs.count
For i = 0 To hs
Dim Ar As DataRow = DataTables("订单详情").addnew()
Ar("Id") = drs(i)("ID")
Ar("料号") = drs(i)("料号")
Ar("数量") = drs(i)("数量")
Next
End If
End If
Next