主题：请教If语句的代码怎么写

没有这样设计的，我认为你不如直接删除订单，这样所有的订单明细都会被删除。

如果要在订单明细操作，也可以在设置订单明细表设置代码，当某个订单的最后一个订单明细被删除时，自动删除对应的订单。

设置订单明细的DataRowDeleteing事件代码：

Dim pr as datarow = e.DataRow.GetParentRow("订单") '获得对应的订单

if pr isnot  Nothing then '如果有对应的订单

     if pr.GetChildRows("订单明细").count  = 1 Then '且这个订单的明细只有一个了

           pr.Delete '删除这个订单

     end if

end if

这有个过程，新手都是这样过来的，经过几个循环，就差不多了：

看帮助两遍 - 实战 - 再看帮助两遍 - 再实战 - 再看帮助