主题：删除“入库单”及其“入库单明细”的代码怎么写？

        For Each r As Row In Tables("入库单.入库明细").Rows
            If r("入库单编号") >0 Then
                r.Locked= False
               r.Delete
            End If
        Next

解锁能正常运行，删除则不正常，只能删除一部分

按照楼上的方法，要选定明细才能删除。

我现在要的效果的是，选定“入库单”就能把其下面的“明细”删掉。

我用了

               With Tables("入库单.入库明细")
                   For i As Integer =0 To .Rows.Count -1
                       .Rows(i).Locked = False
                       .Rows(i).Delete()
                    Next
'                    .DataRows.Clear()
                End With

删除最后一条数据，出错，最后一条也没有删掉

谢谢你啊！

每次对我这种菜鸟型的人这么耐心！！！