老师，请问下，下面这段代码如果改成表达式改怎么改
Select Case e.DataCol.name
Case "A", "B"
Dim drs = e.DataTable.Select("A='" & e.DataRow("A") & "'")
Dim iserror = False
For i As Integer = 1 To drs.count-1
If drs(i-1)("B") <> drs(i)("B") Then
iserror = True
Exit For
End If
Next
If iserror Then
For Each dr As DataRow In drs
dr("c") = Nothing
Next
Else
For Each dr As DataRow In drs
dr("c") = "成功"
Next
End If
End Select
加好友 
发短信
Post By：2019/4/20 17:32:00 [只看该作者]
