主题：新版DataRowLockedChanged 事件的问题

使用新版后每张表单增加行时都会弹出出错对话框，原来旧版一直使用都是正常的。

此主题相关图片如下：360截图20140305144414616.jpg

'主表锁定时同步锁定其所有子表

If e.DataTable.name = Mtb & "_主表" AndAlso Ctb > "" Then '如果是主表且有子表

    Dim drs As List (of DataRow)

    drs = DataTables(Mtb & "_明细").Select(Rcol & "= '" & Tables(Mtb & "_主表").Current(Rcol) & "'")

    If drs IsNot Nothing Then

        For Each Cdr As DataRow In drs

            Cdr.Locked = e.DataRow.Locked

        Next

    End If

End If