主题：按条件判断附值

datacolchanged事件

Select Case e.DataCol.name
    Case "第一列","第二列","第三列","第四列"
        Dim Str1 As String = e.DataRow("第一列")
        Dim Str2 As String = e.DataRow("第二列")
        Dim Str3 As String = e.DataRow("第三列")
        Dim Str4 As String = e.DataRow("第四列")
        If Str1 > "" AndAlso Str2 > "" AndAlso Str3 > "" AndAlso str4.Contains(str1) andalso str4.Contains(str2) andalso str4.Contains(str3) Then
            e.DataRow("符合") = "1"
        Else
            e.DataRow("符合") = "0"
        End If
End Select