我想在父表的锁定行以后的表事件中设置代码,可以锁定父表的当前行的同时锁定相对应的子表中关联的行,代码怎么写?
Dim drs As List(Of DataRow)
Dim sd As String = Tables("商品档案").Current("商品编码")
drs = DataTables("商品套件名称").Select("[商品编码] = '" & sd & "'")
For Each dr As DataRow In drs
dr.Locked() =False
Next
For Each dr As DataRow In e.DataRow.GetChildRows("商品套件名称")
dr.Locked = False
Next