主题：请教“关联与增加行”的问题

请问一下，在帮助中的一组代码： 

Select Case e.DataCol.Name
    Case "订单编号"
        If e.DataRow.IsNull("订单编号") = False Then '如果已经输入订单编号
            If e.DataRow.GetChildRows("订单明细").Count = 0 Then '而且无订单明细
                Dim dr As DataRow = DataTables("订单明细").AddNew()
                dr("订单编号") = e.DataRow("订单编号")
            End If
        End If
End Select

这个代码订单中增加行后，如果修改订单编号，每修改一次，在订单明细中都会增加一行，请问：如果我想只是修改订单编号，订单明细中不新增行，只是在维持一行内的话咋处理？