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

代码如下：

 

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为条件重新加载数据？

有什么好办法？

是的    锁定的行无法删除

打开窗口时，自动增加一行。并且把焦点移到新增加的行上面

窗口的AfterLoad事件：
 
Tables("明细表").Filter = "[编号] Is Null"

将菜单增加行、增加多行的代码改成如下即可：

SysCmd.Filter.StateFilter(StateFilterEnum.Added)
Syscmd.Row.AddNew()

 

SysCmd.Filter.StateFilter(StateFilterEnum.Added)
Syscmd.Row.AddNews()