Foxtable(狐表)用户栏目专家坐堂 → 继续探讨跨行删除的问题


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

主题:继续探讨跨行删除的问题

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


加好友 发短信 一级勋章
等级:版主 帖子:1991 积分:19363 威望:0 精华:20 注册:2008/9/2 10:09:00
继续探讨跨行删除的问题  发帖心情 Post By:2012/5/31 11:02:00 [只看该作者]

由于在BeforeSelChange和AfterSelChange中都不能删除数据行,也不能Reject修改,现在尝试用全局变量进行传递:

在Beforeselchange中保存当前行到一个全局变量,然后在CurrentChanged事件中通过这个全局变量获得上一次的当前行,再将其删除。

 

经测试,这种思路也走不通:

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目29.table


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/5/31 11:30:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目402.table


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


加好友 发短信 一级勋章
等级:版主 帖子:1991 积分:19363 威望:0 精华:20 注册:2008/9/2 10:09:00
  发帖心情 Post By:2012/5/31 11:56:00 [只看该作者]

DataRowState.Deleted原来还有这样的用处,高!

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


加好友 发短信 一级勋章
等级:版主 帖子:1991 积分:19363 威望:0 精华:20 注册:2008/9/2 10:09:00
  发帖心情 Post By:2012/5/31 13:04:00 [只看该作者]

想对2楼的文件做进一步的测试,为什么一设置排序就会自动退出呢?

即使将CurrentChanged中的事件全部删除,仍然是一排序就退出.

将BeforeSelChanged中的那行代码删除就正常了,难道BeforeSelChanged和Sort有什么冲突?

[此贴子已经被作者于2012-5-31 13:08:51编辑过]

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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/5/31 15:10:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目402.table


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


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/5/31 16:07:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目402.table


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


加好友 发短信 一级勋章
等级:版主 帖子:1991 积分:19363 威望:0 精华:20 注册:2008/9/2 10:09:00
  发帖心情 Post By:2012/6/4 12:45:00 [只看该作者]

按照6楼的方法,使用外部数据源(foxtable自带的Code.mdb)。

6楼代码只修改了表名和主键列名称,其它未动。

打开窗口1,执行按钮第一次正常,再执行一次,出错!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目402.table


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/6/4 16:43:00 [只看该作者]

With DataTables("Code")
    prevr = Nothing
    .DeleteFor("Code Is null")
    .LoadFilter = "Code is not null"
    .Load
    .AddNew
End With

 回到顶部