Foxtable(狐表)用户栏目专家坐堂 → RowColEventArgs 错误


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

主题:RowColEventArgs 错误

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


加好友 发短信
等级:婴狐 帖子:29 积分:391 威望:0 精华:0 注册:2012/3/25 9:14:00
RowColEventArgs 错误  发帖心情 Post By:2012/10/12 16:02:00 [只看该作者]

当表格里面只剩最后一行时,就出现错误
这个错误是什么意思?
图片点击可在新窗口打开查看此主题相关图片如下:{5676d8e0-8aa1-49ab-b485-6d6570ef3bad}.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2012-10-12 16:03:03编辑过]

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/10/12 16:15:00 [只看该作者]

 问题没遇到过,把你的项目上传上来看看吧。

 或者升级到狐表的最新版本。

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


加好友 发短信
等级:婴狐 帖子:29 积分:391 威望:0 精华:0 注册:2012/3/25 9:14:00
  发帖心情 Post By:2012/10/12 16:18:00 [只看该作者]


[此贴子已经被作者于2012-10-12 18:23:05编辑过]

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


加好友 发短信
等级:婴狐 帖子:29 积分:391 威望:0 精华:0 注册:2012/3/25 9:14:00
  发帖心情 Post By:2012/10/12 16:19:00 [只看该作者]

新版本也不行

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


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2012/10/12 16:54:00 [只看该作者]

 没办法,光看代码,看不出问题来,没有数据,不知道怎样重现你的错误。

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


加好友 发短信
等级:婴狐 帖子:29 积分:391 威望:0 精华:0 注册:2012/3/25 9:14:00
  发帖心情 Post By:2012/10/12 17:16:00 [只看该作者]


[此贴子已经被作者于2012-10-12 18:23:18编辑过]

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


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

If e.Col.Name = "Actions" Then
    e.Cancel = True '取消默认动作
    Dim Result As DialogResult
    Result = MessageBox.Show("您确认要结算此订单?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        Tables("Paid").AddNew
        Dim dr As Row = Tables("Paid").Current
        Dim dr1 As Row =Tables("Completed").Current
        dr("DeliveredTime")=dr1("Date")
        dr("ID")=dr1("ID")
        dr("Buyer")=dr1("Buyer")
        dr("Game")=dr1("Game")
        dr("Server")=dr1("Server")
        dr("Character")=dr1("Character")
        dr("Amount")=dr1("Amount")
        dr("Price")=dr1("Price")
        dr("备注")= Date.Now & " " & _Name &" 标记订单为Paid." & Chr(13) & Chr(10)& dr1("备注")
        Tables("Completed").Current.Delete
        If Tables("Completed").Current IsNot Nothing Then
            Tables("Completed").Current.Save

        Else

             DataTables("Completed").Save()
        End If
        DataTables("Paid").Save
    End If
End If

[此贴子已经被作者于2012-10-12 17:57:51编辑过]

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


加好友 发短信
等级:婴狐 帖子:29 积分:391 威望:0 精华:0 注册:2012/3/25 9:14:00
  发帖心情 Post By:2012/10/12 18:06:00 [只看该作者]

原来是这里  解决了  谢谢狐狸爸爸  lin_hailun图片点击可在新窗口打开查看


 回到顶部