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


  共有2291人关注过本帖平板打印复制链接

主题:这个报错什么问题

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


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


 回到顶部