Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于删除行的问题


  共有1817人关注过本帖树形打印复制链接

主题：关于删除行的问题
帅哥哟，离线，有人找我吗？
liuqide
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：196 积分：2032 威望：0 精华：0 注册：2018/4/19 13:46:00 		关于删除行的问题  发帖心情 Post By：2018/11/13 16:34:00 [只看该作者]

Syscmd.Row.Delete()
CurrentTable.Current.Save

删除行再保存，为何关闭程序时仍然提示是否保存
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/13 16:36:00 [只看该作者]

要这样才行

 

Syscmd.Row.Delete()
CurrentTable.Save
 回到顶部
帅哥哟，离线，有人找我吗？
liuqide
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：196 积分：2032 威望：0 精华：0 注册：2018/4/19 13:46:00 		  发帖心情 Post By：2018/11/13 16:41:00 [只看该作者]

但我另一个项目是这样写的
Dim r As Row = Tables("ProductionMain").Current

    Dim Result As DialogResult
    Result = MessageBox.Show("确定要删除此行吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        r.Delete()  
        r.Save()
    Else
        Return
    End If

关闭程序并没有提示是否保存，在执行上述代码后即时从后台删除这行
[此贴子已经被作者于2018/11/13 16:52:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/13 17:54:00 [只看该作者]

那，你代码这样写

 

Dim cr = CurrentTable.current
cr.delete
cr.save
 回到顶部
帅哥哟，离线，有人找我吗？
liuqide
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：196 积分：2032 威望：0 精华：0 注册：2018/4/19 13:46:00 		  发帖心情 Post By：2018/11/14 10:46:00 [只看该作者]

Dim cr = CurrentTable.current
cr.delete
cr.save
如果按上面这样写，关闭程序不会提示是否保存

如果按下面，关闭程序会提示是否保存
CurrentTable.current.delete
CurrentTable.current.save

这两种写法，执行应该是一样才对啊，为何实际执行结果会不同呢？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/11/14 10:50:00 [只看该作者]

删除一行以后，你再用CurrentTable.current获取，获取到的不是删除的那一行，而是删除后表格里显示的当前行。

 

如果在删除前先记录，那就可以定位到删除那行。
 回到顶部
帅哥哟，离线，有人找我吗？
liuqide
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：196 积分：2032 威望：0 精华：0 注册：2018/4/19 13:46:00 		  发帖心情 Post By：2018/11/14 11:44:00 [只看该作者]

明白了，谢谢

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询