以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  筛选树删除问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=150002)

--  作者:sloyy
--  发布时间:2020/5/18 12:38:00
--  筛选树删除问题

图片点击可在新窗口打开查看此主题相关图片如下:搜狗截图20200518123618.png
图片点击可在新窗口打开查看

一个普通的表,设置了筛选树,想删除表中的某条记录:
Dim Result As DialogResult
Result = MessageBox.Show("确定要删除 " &Tables("未对账记录").Current("票据号") &" 这条记录吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    Tables("未对账记录").Current.Delete
    Tables("未对账记录").Current.Save
End If
退出系统后,再进来,记录依然存在,这是怎么回事?

我怀疑  Tables("未对账记录").Current.Save 没起作用



--  作者:shenyl0211
--  发布时间:2020/5/18 13:34:00
--  
要保存表
--  作者:有点蓝
--  发布时间:2020/5/18 13:37:00
--  
dim r as row = Tables("未对账记录").Current
Dim Result As DialogResult
Result = MessageBox.Show("确定要删除 " & r("票据号") &" 这条记录吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    r.Delete
    r.Save
End If
-----------
    Tables("未对账记录").Current.Delete 这里删除,下面的Current就已经是另外一行了
    Tables("未对账记录").Current.Save

--  作者:sloyy
--  发布时间:2020/5/18 15:11:00
--  
哦,问题出在这里,一下没注意到
[此贴子已经被作者于2020/5/18 15:11:29编辑过]