If e.DataCol.Name = "收件地址" AndAlso e.DataRow.IsNull(e.DataCol) = False Then
Dim s As String = e.NewValue '例如："浙江省金华市义乌市望道路377号"
Dim str() As String = {"县","区","市","省"}
For i As Integer = 0 To str.Length - 1
If s.LastIndexOf(str(i)) > 0 Then
s = s.SubString(0,s.LastIndexOf(str(i)))
Exit For
End If
Next
For i As Integer = 0 To str.Length - 1
s = s.Replace(str(i),"") '浙江金华义乌
Next
End If
[此贴子已经被作者于2014-4-21 13:12:20编辑过]
加好友 
发短信
Post By：2014/4/21 13:07:00 [显示全部帖子]
