其实也就是修改一下红色那里,原来直接用主表当前行的关联列判断就是会提示出错。但旧版不会。
'主表锁定时同步锁定其所有子表
If e.DataTable.name = Mtb & "_主表" AndAlso Ctb > "" Then '如果是主表且有子表
Dim drs As List (of DataRow)
drs = DataTables(Mtb & "_明细").Select(Rcol & "= '" & e.datarow(Rcol) & "'")
If drs IsNot Nothing Then
For Each Cdr As DataRow In drs
Cdr.Locked = e.DataRow.Locked
Next
End If
End If
[此贴子已经被作者于2014-3-5 18:50:52编辑过]