If Tables("出货单总表").Current IsNot Nothing Then
Dim r As Row = Tables("出货单总表").Current
Dim drd As DataRow = DataTables("订货单总表").Find("piao号='" & r("订货piao号") & "'")
If drd("发货完毕") = True
MessageBox.Show("该客户已发货完毕,不需要修改数据","请确认")
Return
Else
If MessageBox.Show("是否删除?","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
For Each dr As DataRow In DataTables("出货单明细表").DataRows
dr("piao号") = Tables("出货单总表").Current("piao号")
dr("出货数量") = 0
Next
DataTables("出货单明细表").SQLDeleteFor("piao号 = '" & Tables("出货单总表").Current("piao号") & "'")
Tables("出货单总表").Current.Delete
DataTables("出货单总表").save
DataTables("出货单明细表").save
End If
End If
End If
老师，我这要实现，出货单是从订单表导入过来的，但不一定该订单就全部出货完毕，当出货单录入错误了，我要删除该出货单，同时订单数据恢复到出货前的数据，当订单表只有一条数据时正确，当出货明细多条记录时，也就是，想删除前，把所有的订单明细出货数量，修改为0.就写不对了，请老师指点
[此贴子已经被作者于2019/3/18 11:18:58编辑过]
加好友 
发短信
Post By：2019/3/17 14:56:00 [显示全部帖子]
