Foxtable(狐表)用户栏目专家坐堂 → [求助]帮忙看下我是哪里写错了吗?每次第二个字符串提示错误,没看出来是什么原因


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

主题:[求助]帮忙看下我是哪里写错了吗?每次第二个字符串提示错误,没看出来是什么原因

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


加好友 发短信
等级:六尾狐 帖子:1483 积分:10551 威望:0 精华:0 注册:2018/10/16 11:42:00
[求助]帮忙看下我是哪里写错了吗?每次第二个字符串提示错误,没看出来是什么原因  发帖心情 Post By: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

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/12/28 14:38:00 [只看该作者]

代码改成这个

 

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

 

或者

 

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


 回到顶部