求教，可否精简以下代码：Select Case e.DataCol.Name
Case "左座"
Dim dr As DataRow = e.DataRow
Dim h As String = dr("左座")
Dim h2 As String = dr("飞行员")
Dim h3 As String = dr("右座")
Dim nms() As String = h2.Split(",")
If nms.Length = 2 Then
dr("右座") = h2.replace(h, "").replace(",", "")
End If
Case "右座"
Dim dr As DataRow = e.DataRow
Dim h As String = dr("左座")
Dim h2 As String = dr("飞行员")
Dim h3 As String = dr("右座")
Dim nms() As String = h2.Split(",")
If nms.Length > 2 Then
dr("观察员1") = h2.replace(h3 , "").replace(h, "").replace(",", "")
End If
End Select
加好友 
发短信
Post By：2015/8/29 15:13:00 [显示全部帖子]
