主题：[求助]逻辑判断

写成一个If判断

If 条件1 then

ElseIf 条件2 then

ElseIf 条件3 then

End If

参考

'''

If e.DataCol.Name = "庭审笔录被告出庭" Then    '空格
    Dim s As String = e.DataRow("庭审笔录被告出庭")
    Dim ss() As String = s.Split(vbcrlf)
    Dim level As Integer = 999
    For i As Integer = 0 To ss.Length - 1
        If ss(i).Contains("法定代表人") AndAlso ss(i).Contains("未到庭") Then
            e.DataRow("出庭情况_负责人") = False
            e.DataRow("出庭情况_正职") = False
        ElseIf ss(i).Contains("法定代表人") AndAlso ss(i).Contains("到庭") Then
            e.DataRow("出庭情况_负责人") = True
            e.DataRow("出庭情况_正职") = True
            If level > 1 Then
                e.DataRow("出庭情况_负责人姓名职务") =  ss(i).Replace("法定代表人", "").Replace("。", "")
                level = 1
            End If
        End If
       
        If ss(i).Contains("负责人") AndAlso ss(i).Contains("副") AndAlso ss(i).Contains("未到庭") Then
            e.DataRow("出庭情况_负责人") = False
            e.DataRow("出庭情况_副职") = False
        ElseIf ss(i).Contains("负责人") AndAlso ss(i).Contains("副") AndAlso ss(i).Contains("到庭") Then
            e.DataRow("出庭情况_负责人") = True
            e.DataRow("出庭情况_副职") = True
            If level > 2 Then
                e.DataRow("出庭情况_负责人姓名职务") =  ss(i).Replace("单位负责人", "").Replace("负责人", "").Replace("。", "")
                level = 2
            End If
        End If
       
    Next
End If

加上systemready

http://www.foxtable.com/webhelp/scr/2218.htm