主题：【代码求助】如何锁定子表对应行？

我是这样处理的，看看有没有用？

---------------------------

If Tables("出库单.出库明细").Rows.Count = 0 Then
    MessageBox.Show("当前没有出库明细!")
    Return
End If
Dim dr As DataRow= Tables("出库单").Current.DataRow()
If dr.IsNull("业务员") Or dr.IsNull("业务类型") Then
    MessageBox.Show("请正确选择正确的业务员和业务类型!")
Else
    For Each r As Row In Tables("出库单.出库明细").Rows
        If r.IsNull("小计")Then
            Tables("出库单").Current.Locked=False
            MessageBox.Show("出库明细小计不能为空")
            r.Locked=False
            Return
        Else
            r.Save
            r.Locked = True
            If dr("结清") = True Then
                r("结清")= True
            Else
                r("结清")= False
            End If
            Tables("出库单").Current.Save
            Tables("出库单").Current.Locked=True
        End If
    Next
    If dr("结清") = True Then
        dr("收到货款")= dr("货款合计")
    Else
        dr("收到货款")= 0
    End If