以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：代码报错 求纠正 主要是字符值得拆分  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=63066)
--  作者：李孝春
--  发布时间：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编辑过]
--  作者：Bin
--  发布时间：2015/1/13 14:02:00
--  
Dim Parts() As String = Tel.Split(")")
if Parts.length>1 then
        e.DataRow("材料编号_字号") = Parts(0)
        e.DataRow("材料编号_文号") = Parts(1)
end if

试试看还是有问题,上例子.
--  作者：李孝春
--  发布时间：2015/1/13 15:06:00
--  回复：（Bin）Dim Parts() As String = Tel.Split(")"...
感谢bin老师 增加了这个判断 运行正常了
--  作者：李孝春
--  发布时间：2015/1/13 17:36:00
--  回复：（Bin）Dim Parts() As String = Tel.Split(")"...
BIN老师 不报错了 但是怎么测试也不出现拆分  好纠结

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

[此贴子已经被作者于2015-1-13 17:42:10编辑过]
--  作者：有点甜
--  发布时间：2015/1/13 17:38:00
--  

 说明分割符不对啊，看红色代码，是否是中文下的）而非英文的)

 

Dim Parts() As String = Tel.Split(")")
--  作者：李孝春
--  发布时间：2015/1/13 17:45:00
--  回复：（有点甜） 说明分割符不对啊，看红色代码...
谢谢有点甜老师提醒 
--  作者：程兴刚
--  发布时间：2015/1/13 21:38:00
--  
Dim Parts() As String = Tel.Split(")")
e.DataRow("材料编号_字号") = Parts(0)
if Parts.length>1 then
    e.DataRow("材料编号_文号") = Parts(1)
end if