以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]锁定行删除问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=29138)
--  作者：红颜
--  发布时间：2013/2/28 14:57:00
--  [求助]锁定行删除问题？

代码如下：

 

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

有什么好办法？

[此贴子已经被作者于2013-2-28 15:06:09编辑过]
--  作者：yupoco
--  发布时间：2013/2/28 15:02:00
--  
是的    锁定的行无法删除
--  作者：yupoco
--  发布时间：2013/2/28 15:17:00
--  
打开窗口时，自动增加一行。并且把焦点移到新增加的行上面
--  作者：狐狸爸爸
--  发布时间：2013/2/28 15:22:00
--  
窗口的AfterLoad事件：
 
Tables("明细表").Filter = "[编号] Is Null"
--  作者：lsy
--  发布时间：2013/2/28 15:34:00
--  

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

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

 

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