这样就不出错了:
Select Case e.DataCol.Name
Case "购买座位号"
Dim ov As String
Dim nv As String
If e.NewValue > "" Then
nv = "'" & e.NewValue.REplace(",","','") & "'"
End If
If e.oldValue > "" Then
nv = "'" & e.oldValue.Replace(",","','") & "'"
End If
If ov > "" Then
Dim drs As List(Of DataRow) = DataTables("表A").Select("座位号 In (" & ov & ")")
If drs.Count>0 Then
For Each dr As DataRow In drs
dr("是否出售") = "否"
Next
End If
End If
If nv > "" Then
Dim drs As List(Of DataRow) = DataTables("表A").Select("座位号 In (" & nv & ")")
If drs.Count>0 Then
For Each dr As DataRow In drs
dr("是否出售") = "是"
Next
End If
End If
End Select