老师，后面的代码是： a2 = nr("hm")
srr = rgx.Split(a2)
n2 = srr(srr.Length - 1)
a2 = a2.Substring(0,a2.Length - n2.Length)
If a1 = a2 AndAlso CLng(n1) + 1 = CLng(n2) Then
sum+=1
Else
Dim nr2 = Tables("HZB").AddNew
nr2("HD") = r("hd")
nr2("qshm") = fr
nr2("jshm") = r("hm")
nr2("zs") = sum
nr2.Save()
End If
Else
Dim nr2 = Tables("HZB").AddNew
nr2("HD") = r("hd")
nr2("qshm") = fr
nr2("jshm") = r("hm")
nr2("zs") = sum
End If
Next
r = nr
Output.Show(r("hd") & "," & fr & "-" & r("hm") & "," & sum)
得到的结果为
| 167152 |
73301DE2ML606009801 |
73301DE2ML606009820 |
20 |
| 167152 |
73301DE2ML606009801 |
73301DE2ML606009860 |
54 |
| 167152 |
73301DE2ML606009801 |
73301DE2ML606009900 |
59 |
| 179201 |
73301DE2ML606009801 |
68201DE2K56069050039 |
97 |
| 179201 |
73301DE2ML606009801 |
68201DE2K56069050090 |
126 |
| 179201 |
73301DE2ML606009801 |
68201DE2K56069050129 |
163 |
| 179201 |
73301DE2ML606009801 |
68201DE2K56069050285 |
230 |
| 179201 |
73301DE2ML606009801 |
68201DE2K56069050351 |
288 |
| 179201 |
73301DE2ML606009801 |
68201DE2K56069050665 |
408 |
| 183211 |
73301DE2ML606009801 |
UK4200531499605ED025 |
432 |
起始号码和张数不正确，号段和结束号码段正确了，请问老师怎么调整？
加好友 
发短信
Post By：2020/12/8 22:06:00 [只看该作者]
