-------------------------------------------------------------------------
'''
Dim str As String = e.Form.Controls("TextBox2").text.replace("\", "、").replace(",", "、")
If str <> "" Then
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "(\([0-9]+\)[鲁0-9]+)|(行初[0-9\-]+)|(赔初[0-9\-]+)|(行终[0-9\-]+)|([0-9\-]+)")
Dim qz As String = ""
Dim lx As String = ""
For i As Integer = 0 To mc.count-1
Dim s As String = mc(i).value
If i = 0 Then
qz = s
Else
If s.StartsWith("行初") Then
lx = "行初"
s = s.replace("行初", "")
ElseIf s.StartsWith("赔初") Then
lx = "行赔初"
s = s.replace("赔初", "")
ElseIf s.StartsWith("行终") Then
lx = "行终"
s = s.replace("行终", "")
End If
Dim ii = 0
Dim jj = 0
If s.Indexof("-") >= 0 Then
ii = s.split("-")(0)
jj = s.split("-")(1)
Else
ii = s
jj = s
End If
For k As Integer = ii To val(jj)
'msgbox(qz & lx & k & "号")
Dim dr As DataRow
dr = DataTables("送达管理").Find("[案号] = '" & qz & lx & k & "号" & "'")
If dr IsNot Nothing Then
dr("标注") = True
End If
Next
End If
Next
For Each r As Row In Tables("批量增加_table1")
Tables("批量增加_table1").Filter = "标注 = True"
Next
Else
Return
End If
加好友 
发短信
Post By：2018/8/13 9:53:00 [显示全部帖子]
此主题相关图片如下：image 22.jpg
