这么复杂,用SQL,俺弄不好。
代码倒不算难:
If e.DataCol.Name = "第一列" Then
If IsNumeric(e.DataRow(e.DataCol)) Then
Return
End If
Dim s As String = e.DataRow(e.DataCol)
If s.Split("-").Length > 1 Then
If s.Split("-")(0).StartsWith("OLY") AndAlso s.Split("-")(0).Length > 3 Then
s = s.Split("-")(0).SubString(3)
ElseIf s.Split("-")(0).StartsWith("MW") AndAlso s.Split("-")(0).Length > 2 Then
s = s.Split("-")(0).SubString(2)
Else
s = s.Split("-")(1)
End If
Else
If s.StartsWith("OLY") Then
s = s.SubString(3)
ElseIf s.StartsWith("MW")
s = s.SubString(2)
End If
End If
e.DataRow(e.DataCol) = s
End If
[此贴子已经被作者于2013-10-8 16:35:46编辑过]