Foxtable(狐表)用户栏目专家坐堂 → 勾选删除出错


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

主题:勾选删除出错

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


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
勾选删除出错  发帖心情 Post By:2018/12/30 17:21:00 [只看该作者]

在勾选某一行删除时出错,这一行有数据。 但是勾选其他行删除没有问题。

.NET Framework 版本:2.0.50727.8937
Foxtable 版本:2018.9.9.1
错误所在事件:窗口,收据打印,Button1,Click
详细错误信息:
索引和长度必须引用该字符串内的位置。
参数名: length


全部代码:

Dim Result As DialogResult
Dim rs As List (of Row) = CurrentTable().GetCheckedRows()
If rs.count= 0 Or Tables("收据打印").Current("姓名") = Nothing
    messagebox.Show("此行为空,或者您未勾选要删除的客户.请先勾选 !","提示",MessageBoxButtons.OK,messageboxicon.warning)
    Return
End If
Dim ids As String
For Each r As Row In rs
    ids = ids & "," & r("姓名").substring(0,3)
Next
Result = MessageBox.Show("确定要删除 " & ids.Trim(",") & " ?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
    For Each r As Row In rs
        r.Delete()
    Next
Else
    Return
End If
[此贴子已经被作者于2018/12/30 17:57:59编辑过]

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


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

改成

 

For Each r As Row In rs
    If r("姓名") <> nothing AndAlso r("姓名").length >= 3 Then
        ids = ids & "," & r("姓名").substring(0,3)
    End If
Next

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


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2019/1/2 11:54:00 [只看该作者]

就是删除姓名只有二个汉字的行出现错误, 但现在提示这样:

提示:

详细错误信息:
未将对象引用设置到对象的实例。
[此贴子已经被作者于2019/1/2 11:55:08编辑过]

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


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

改成2楼代码绝对没问题。

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


加好友 发短信
等级:四尾狐 帖子:822 积分:5782 威望:0 精华:0 注册:2015/2/3 22:19:00
  发帖心情 Post By:2019/1/2 15:27:00 [只看该作者]

甜, 真的不行, 不过我在所有姓名后面加了 &“ ” 一个空格, 现在没问题了。

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


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

贴出所写完整代码。

 回到顶部