主题：[求助]锁定行删除问题？

代码如下：

 

Dim Result As DialogResult
Result = MessageBox.Show("确定删除吗?", "提示", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
If Result = DialogResult.OK Then
    For Each r As Row In Tables("明细表").GetCheckedRows
        r.Delete
    Next
Else
    Tables("明细表").ClearCheckedRows
End If

 

经过测试，上述代码对锁定行不起作用。是不是要先解锁，再删除？

 

另一个问题：

 

每次新录数据时，如何让窗口表显示为空？

我用Tables("明细表").Filter = "[编号] Is Null"，但当再次打开窗口或关闭同时打开的另一个窗口时，录入的所有数据又在窗口表中显示。

是不是要保存后以nothing为条件重新加载数据？

有什么好办法？