Foxtable(狐表)用户栏目专家坐堂 → 求助:代码报错 求纠正 主要是字符值得拆分


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

主题:求助:代码报错 求纠正 主要是字符值得拆分

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
求助:代码报错 求纠正 主要是字符值得拆分  发帖心情 Post By:2015/1/13 12:34:00 [显示全部帖子]

求助:下列代码运行 弹出提示"调用的目标发生了异常"  然后无法正常取消和关闭项目了。

 

 

If e.DataRow("标题") = "同步录音录像受理登记表" Then
    If e.NewValue Is Nothing Then
        e.DataRow("标题") = Nothing
        e.DataRow("来源") = Nothing
        e.DataRow("责任人") = Nothing
        e.DataRow("文件编号") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("同录台账").Find("[受理编号] = '" &  e.DataRow("案卷编号") & "'")
        If dr IsNot Nothing
            'e.DataRow("标题") = dr("标题")
            e.DataRow("来源") = dr("办案部门")
            'e.DataRow("责任人") = dr("责任人")
            e.DataRow("文件编号") = dr("受理登记号")
           
        End If
    End If
End If

下面代码报错 求纠正 

Select Case e.DataCol.name
Case  "文件编号"
    If e.DataRow.Isnull("文件编号")= False Then   如果文件编号不为空
        Dim Tel As String = e.DataRow("文件编号")   定义文件编号值为字符
        Dim Parts() As String = Tel.Split(")")
        e.DataRow("材料编号_字号") = Parts(0)
        e.DataRow("材料编号_文号") = Parts(1)
    Else
        e.DataRow("材料编号_字号") = "无"
        e.DataRow("材料编号_文号") = "无"
    End If
End Select

[此贴子已经被作者于2015-1-13 13:10:49编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(Bin)Dim Parts() As String = Tel.Split(")"...  发帖心情 Post By:2015/1/13 15:06:00 [显示全部帖子]

感谢bin老师 增加了这个判断 运行正常了

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(Bin)Dim Parts() As String = Tel.Split(")"...  发帖心情 Post By:2015/1/13 17:36:00 [显示全部帖子]

BIN老师 不报错了 但是怎么测试也不出现拆分  好纠结

居然不能上传数据库及压缩文件 

[此贴子已经被作者于2015-1-13 17:42:10编辑过]

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点甜) 说明分割符不对啊,看红色代码...  发帖心情 Post By:2015/1/13 17:45:00 [显示全部帖子]

谢谢有点甜老师提醒 

 回到顶部