If Tables("生产制造单_table2").Current IsNot Nothing Then
If Tables("生产制造单_table2").TopPosition>-1 Then
For i As Integer=Tables("生产制造单_table2").BottomPosition To Tables("生产制造单_table2").TopPosition Step -1
Tables("生产制造单_table2").Rows(i).Delete()
Dim tb As Table = Tables("销售明细尺码")
Dim fdr As DataRow = tb.Find("销售明细行ID = '" & Tables("生产制造单_table2").Rows(i)("销售明细行ID") & "' ")
fdr("已安排制单")=False
Next
End If
End If