以文本方式查看主题 - 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 -- 筛选树删除问题 一个普通的表,设置了筛选树,想删除表中的某条记录: 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编辑过]
|