Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]模式窗口删除table最后一行的BUG


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

主题：[讨论]模式窗口删除table最后一行的BUG
帅哥哟，离线，有人找我吗？
fjlclxj
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：2468 威望：0 精华：2 注册：2013/1/16 19:33:00 		[讨论]模式窗口删除table最后一行的BUG  发帖心情 Post By：2017/9/9 16:55:00 [只看该作者]

选中table的最后一行，然后在模式窗口中用代码删除table的当前行（暨最后一行），出现如下错误提示


图片点击可在新窗口打开查看此主题相关图片如下：无标题.png
图片点击可在新窗口打开查看

经测试，窗口若非模式（如独立），不会报错；若当前行不是最后一行，不会报错。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110810 积分：563988 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/9/9 16:58:00 [只看该作者]

贴出代码，或者上传实例说明

 回到顶部
帅哥哟，离线，有人找我吗？
fjlclxj
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：321 积分：2468 威望：0 精华：2 注册：2013/1/16 19:33:00 		  发帖心情 Post By：2017/9/9 22:00:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:测试.rar
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4761 积分：34613 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2017/9/10 7:57:00 [只看该作者]

表只要有记录，测试未发现异常

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


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

 所给的例子，测试没问题。你先升级到最新版foxtable。
 回到顶部
帅哥哟，离线，有人找我吗？
liaos
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：11 积分：216 威望：0 精华：0 注册：2017/8/27 11:58:00 		  发帖心情 Post By：2017/9/13 9:51:00 [只看该作者]

我也发现同样的问题，在窗口删除行后会出现系统报错，但仅对在窗口当时增加新行的最后一行，如果窗口关闭，重新打开，那么不管是不是最后一行，都不会报错，搞了一天了。

以下内容为程序代码:

1 我的代码很简单，对窗口一个按钮的CLICK事件：
2 If Tables("单罐数据_网络").current IsNot Nothing
3 Tables("单罐数据_网络").current.delete()
4 End If
5
6 试着改为：
7 If Tables("单罐数据_网络").current IsNot Nothing
8 SystemReady = False
9 Tables("单罐数据_网络").current.delete()
10 SystemReady = True
11 End If


也不起作用

同求帮助

[此贴子已经被作者于2017/9/13 9:52:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

以下是引用liaos在2017/9/13 9:51:00的发言：
我也发现同样的问题，在窗口删除行后会出现系统报错，但仅对在窗口当时增加新行的最后一行，如果窗口关闭，重新打开，那么不管是不是最后一行，都不会报错，搞了一天了。

[此贴子已经被作者于2017/9/13 9:52:12编辑过]

 

上面帖子的例子，你测试是否报错？你表格肯定还有别的事件写有冲突的代码，比如 beforeSelChanged、CurrentChanged 等等
 回到顶部
帅哥哟，离线，有人找我吗？
liaos
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：11 积分：216 威望：0 精华：0 注册：2017/8/27 11:58:00 		  发帖心情 Post By：2017/9/13 11:32:00 [只看该作者]

谢谢版主如此快速的回复，是要出错的，帮我分析一下，我上传了程序和出错过程了。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:程序.rar
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:出错过程.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

If Tables("单罐数据_网络").current IsNot Nothing
    Dim lst As WinForm.ListBox
    Lst = e.form.Controls("ListBox1")
   
    lst.DataSource = "" '列表项目来自于客户表
    Dim r = Tables("单罐数据_网络").Current.delete
    lst.DataSource = "单罐数据_网络" '列表项目来自于客户表
End If

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