以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]帮忙看下我是哪里写错了吗？每次第二个字符串提示错误，没看出来是什么原因  (http://foxtable.com/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("地址：")