以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]帮忙看下我是哪里写错了吗?每次第二个字符串提示错误,没看出来是什么原因  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=129437)

--  作者:zto001
--  发布时间:2018/12/28 14:30:00
--  [求助]帮忙看下我是哪里写错了吗?每次第二个字符串提示错误,没看出来是什么原因
[求助]帮忙看下我是哪里写错了吗?每次第二个字符串提示错误,第一个却不会出现错误。我没看出来是什么原因

第一个、e.DataRow("工单信息")=   新建工单,工单号:KT201812282**09;工单类型延误中转;状态:已下发;投诉内容:客户来电称此件未及时给收件人送达,要求我司尽快核实,有结果及时回复客户。;地址:NNNN,投诉人:许黑黑,身份:收件客户,回复电话:182****4630

第二个、e.DataRow("工单信息")= 新建工单,工单号:KT201812281**06;工单类型地址不符;状态:已创建;投诉内容:客户来电称此件发往地址与实际地址不符要求我司核实,有结果及时回复客户。;地址:NNNN,投诉人:先生,身份:收件客户,回复电话:153****2830

代码:
If e.DataCol.name="工单信息" And not e.DataRow("工单信息")=""  Then
Dim xx As  String = e.DataRow("工单信息") 
Dim gdh As Integer = xx.IndexOf("工单号")
Dim lx As Integer = xx.IndexOf("工单类型")
Dim dqzt As Integer = xx.IndexOf("状态")
Dim nr As Integer = xx.IndexOf("投诉内容")
Dim dz As Integer = xx.IndexOf("地址")
Dim tsr As Integer = xx.IndexOf("投诉人")
Dim sf As Integer = xx.IndexOf("身份")
Dim hf As Integer = xx.IndexOf("回复电话")
Dim qc As Integer = xx.Length
e.DataRow("工单号")=xx.SubString(gdh+4,lx-5-gdh )
e.DataRow("工单类型")=xx.SubString(lx+4,dqzt-5-lx)
e.DataRow("内容")=xx.SubString(nr+5,dz-7-nr  )   ’-------这里出错
e.DataRow("地址")=xx.SubString(dz+3,tsr-4-dz  )
e.DataRow("身份")=xx.SubString(sf+3,hf-4-sf  )
e.DataRow("投诉人")=xx.SubString(tsr+4,sf-5-tsr  )
e.DataRow("电话")=xx.SubString(hf+5,qc-hf-5 )
End If

--  作者:有点甜
--  发布时间:2018/12/28 14:38:00
--  

代码改成这个

 

Dim dz As Integer = xx.lastIndexOf("地址")

 

或者

 

Dim dz As Integer = xx.IndexOf("地址:")