[求助]帮忙看下我是哪里写错了吗?每次第二个字符串提示错误,第一个却不会出现错误。我没看出来是什么原因
第一个、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