例:发文字号:信边军〔2019〕12号,“发文编号”想提取“12”两个数字,下边代码,如何更改,谢谢
Select Case e.DataCol.name
Case "收到日期", "发文字号"
If e.DataRow.IsNull("收到日期") Then
e.DataRow("发文编号") = Nothing
Else
Dim s = e.DataRow( "发文字号")
Dim str As String
str &= str.substring(str.indexOf(")")+1,str.indexOf("号"))
e.DataRow("发文编号") = str
End If
End Select