主题：请问如何锁定关联子行

我想实现保存了父行以后能将子行同步保存并且将 父行和子行都锁定 请问怎么实现

示例

假定产品表和订单表之间通过产品编号建立了关联，下面的代码获得第一个产品的全部订单，并将这些订单的折扣设为0.1：

Dim drs As List(Of Datarow)
drs = DataTables("产品").DataRows(0).GetChildRows("订单")
For Each dr As DataRow In drs
   

dr("折扣") = 0.1

.........此处改为保存代码，save什么的好像 。然后再弄个逻辑列都true上什么的。最后在事件代码那里加个：如果逻辑列=true,  e.cancle=treu

Next

父表BeforeSaveDataRow事件代码：

 

e.DataRow.Locked = True '父表当前行行
Dim drs As List(Of DataRow)
drs = DataTables("子表").Select("[关联列] = '" & e.DataRow("关联列") & "'")
For Each dr As DataRow In drs
    dr.Locked = True
Next
 子表和关联列名称自己修改，关联列为非字符型数据时，注意修改条件表达式！

再进一步：
 
e.DataRow.Locked = True '父表当前行行
For Each dr As DataRow e.DataRow.GetChildRows("子表名称")
    dr.Locked = True
Next