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


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

主题:这个报错什么问题

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


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望: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 上执行“=”操作。


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


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2020/4/10 22:22:00 [显示全部帖子]

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

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


加好友 发短信
等级:狐精 帖子:3205 积分:21299 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2020/4/13 8:58:00 [显示全部帖子]

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

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

 回到顶部