筛选树删除问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 筛选树删除问题

共有2491人关注过本帖树形打印复制链接主题：筛选树删除问题

sloyy

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2180 积分：13810 威望：0 精华：2 注册：2012/2/25 10:59:00

筛选树删除问题 发帖心情

Post By：2020/5/18 12:38:00 [只看该作者]

此主题相关图片如下：搜狗截图20200518123618.png

一个普通的表,设置了筛选树,想删除表中的某条记录:

Dim Result As DialogResult

Result = MessageBox.Show("确定要删除 " &Tables("未对账记录").Current("piao据号") &" 这条记录吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

Tables("未对账记录").Current.Delete

Tables("未对账记录").Current.Save

End If

退出系统后,再进来,记录依然存在,这是怎么回事?

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

shenyl0211

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：977 积分：6835 威望：0 精华：0 注册：2012/4/2 21:49:00

Post By：2020/5/18 13:34:00 [只看该作者]

要保存表

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107301 积分：545766 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/5/18 13:37:00 [只看该作者]

dim r as row = Tables("未对账记录").Current

Dim Result As DialogResult

Result = MessageBox.Show("确定要删除 " & r("piao据号") &" 这条记录吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result = DialogResult.Yes Then

r.Delete

r.Save

End If

-----------

Tables("未对账记录").Current.Delete 这里删除，下面的Current就已经是另外一行了

Tables("未对账记录").Current.Save

sloyy

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2180 积分：13810 威望：0 精华：2 注册：2012/2/25 10:59:00

Post By：2020/5/18 15:11:00 [只看该作者]

哦,问题出在这里,一下没注意到

[此贴子已经被作者于2020/5/18 15:11:29编辑过]

下一主题 >> << 上一主题

主题：筛选树删除问题