Foxtable(狐表)用户栏目专家坐堂 → 这个报错什么问题


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

主题:这个报错什么问题

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


加好友 发短信
等级:狐精 帖子:3106 积分:20733 威望:0 精华:0 注册:2016/3/28 16:57:00
这个报错什么问题  发帖心情 Post By:2020/4/10 19:08:00 [只看该作者]

序号列整数型,以下代码报错什么问题?
Select Case e.DataCol.Name
    Case "表名称"
        Dim fn As winform.form = Forms("审核流程设置")
        If fn.Opened Then
            Dim tr As WinForm.TreeView = fn.Controls("TreeView1")
            For Each sd As WinForm.TreeNode In tr.AllNodes
                If sd.Text = e.OldValue Then
                    sd.Text=e.NewValue
                End If
            Next
        End If
        Dim drs As List(Of DataRow)
        drs = DataTables("审核流程管理").Select("[表名称] = '" & e.OldValue & "'")
        For Each dr As DataRow In drs
            dr("表名称") = e.NewValue
            dr.Save
        Next
    Case "序号"
        Dim fn As winform.form= Forms("审核流程设置")
        If fn.Opened Then
            Dim tr As WinForm.TreeView = fn.Controls("TreeView1")
            For Each sd As WinForm.TreeNode In tr.AllNodes
                If sd.Text = e.OldValue AndAlso sd.parentnode.Text= e.DataRow("表名称") Then
                    sd.Text = e.NewValue
                End If
            Next
        End If
        Dim drs As List(Of DataRow)
        drs = DataTables("审核流程管理").Select("[序号] = '" & e.OldValue & "'")
        For Each dr As DataRow In drs
            dr("序号") = e.NewValue
            dr.Save
        Next
End Select

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.1.19.19
错误所在事件:表,审核流程管理,DataColChanged
详细错误信息:
调用的目标发生了异常。
无法在 System.Int32 和 System.String 上执行“=”操作。


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


加好友 发短信
等级:狐神 帖子:4650 积分:33912 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2020/4/10 22:07:00 [只看该作者]

主要是类型不相符

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


加好友 发短信
等级:狐精 帖子:3106 积分:20733 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2020/4/10 22:22:00 [只看该作者]

是类型不符,但是没找到问题出在哪儿,调试是最后一个循环哪儿报错。

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


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2020/4/10 23:50:00 [只看该作者]

你的序号应该是个整数型。

     drs = DataTables("审核流程管理").Select("[序号] = '" & e.OldValue & "'")

改为:

     drs = DataTables("审核流程管理").Select("[序号] = " & e.OldValue)


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


加好友 发短信
等级:狐精 帖子:3106 积分:20733 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2020/4/13 8:58:00 [只看该作者]

老师,你的方法也报错,我把序号改为字符型就没问题。但为整数报错还是不知道怎么写

[此贴子已经被作者于2020/4/13 9:02:20编辑过]

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


加好友 发短信
等级:超级版主 帖子:107861 积分:548662 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/4/13 9:52:00 [只看该作者]

调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm,看那一句代码有问题

 回到顶部