Foxtable(狐表)用户栏目专家坐堂 → “员工”表双击打开窗口,随意删除一部分数据,如删除“尊称”列的“博士”,等几秒钟后,计划管理中的定时保存设置生效,刚删除的内容,又会自行恢复了?


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

主题:“员工”表双击打开窗口,随意删除一部分数据,如删除“尊称”列的“博士”,等几秒钟后,计划管理中的定时保存设置生效,刚删除的内容,又会自行恢复了?

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/3 18:11:00 [显示全部帖子]

我测试你给的示例,没有问题,请你认认真真测试,说明测试步骤。

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/3 19:00:00 [显示全部帖子]

以下是引用fengwenliuyan在2019/6/3 18:31:00的发言:
具体操作:
双击第一行,弹出窗口,复制姓名列:“王伟”,黏贴在编号列,再回到姓名列,删除内容“王伟”,
然后等几秒,会发现这个姓名列的王伟会重新出现?

 

我测试确实没有问题,只要不撤销修改,都不会重复出现。

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/3 19:22:00 [显示全部帖子]

以下是引用fengwenliuyan在2019/6/3 19:06:00的发言:
能将您测试的版本上传我试试看吗?

 

旧版本2019.04.12


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/4 10:53:00 [显示全部帖子]

以下是引用fengwenliuyan在2019/6/3 22:34:00的发言:
那要是想,模拟:再返回原控件的光标原来的位置?不知道这个代码应该怎么写

 

对于正在编辑的表,你不要保存,不就好了?

 

比如,如果maintable等于某表,或者currenttable等于某表,那就不要保存,即可。

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/4 12:05:00 [显示全部帖子]

以下是引用fengwenliuyan在2019/6/4 11:35:00的发言:
还是写在计划管理中的保存所有表,但不保存指定的主表或当前表吗?要是这样的话,代码应该怎么改?

 

For Each dt As DataTable In DataTables
    If dt.name <> CurrentTable.DataTable.name Then
        dt.Save()
    End If
Next

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/6/4 15:32:00 [显示全部帖子]

以下是引用fengwenliuyan在2019/6/4 13:43:00的发言:
老师,若是要只保存“当前表中的当前行”以外的数据,应该怎么写?

 

For Each dt As DataTable In DataTables
    If dt.name <> CurrentTable.DataTable.name Then
        dt.Save()
    Else
        For Each r As Row In CurrentTable.Rows
            If r.Index <> CurrentTable.Current.Index Then
                r.save
            End If
        Next
    End If
Next

 


 回到顶部