主题：[求助]逻辑判断

根据[庭审笔录被告出庭]的值进行逻辑判断，为逻辑列赋值。
前面的确定了，后面的不再作判断，依次判断规则：

谢谢！

 
此主题相关图片如下：image 1.jpg

If e.DataCol.Name = "庭审笔录被告出庭" Then    '空格
    Dim s As String = e.DataRow("庭审笔录被告出庭")
    Dim ss() As String = s.Split(vbcrlf)
    For i As Integer = 0 To ss.Length - 1
        If ss(i).Contains("法定代表人") AndAlso ss(i).Contains("未到庭") Then
            e.DataRow("出庭情况_负责人") = False
            e.DataRow("出庭情况_正职") = False
            e.DataRow("出庭情况_负责人姓名职务") =  ""
        ElseIf ss(i).Contains("法定代表人") AndAlso ss(i).Contains("到庭") Then
            e.DataRow("出庭情况_负责人") = True
            e.DataRow("出庭情况_正职") = True
            e.DataRow("出庭情况_负责人姓名职务") =  ss(i).Replace("法定代表人", "").Replace("。", "")
        End If
       
        If ss(i).Contains("负责人") AndAlso ss(i).Contains("副") AndAlso ss(i).Contains("未到庭") Then
            e.DataRow("出庭情况_负责人") = False
            e.DataRow("出庭情况_副职") = False
            e.DataRow("出庭情况_负责人姓名职务") =  ""
        ElseIf ss(i).Contains("负责人") AndAlso ss(i).Contains("副") AndAlso ss(i).Contains("到庭") Then
            e.DataRow("出庭情况_负责人") = True
            e.DataRow("出庭情况_正职") = True
            e.DataRow("出庭情况_负责人姓名职务") =  ss(i).Replace("单位负责人", "").Replace("负责人", "").Replace("。", "")
        End If
       
        If ss(i).Contains("代理人") Or ss(i).Contains(e.DataRow("被告")) Or ss(i).Contains(e.DataRow("原审被告")) AndAlso ss(i).Contains("到庭") Then
            e.DataRow("出庭情况_本机关工作人员") = True
        Else
            If s.Contains("代表人") =False AndAlso s.Contains("负责人") =False AndAlso s.Contains("工作人员") =False  AndAlso ss(i).Contains("律师") AndAlso ss(i).Contains("到庭") Then
                e.DataRow("出庭情况_仅委托律师") = True
            End If
        End If
    Next
End If

写成一个If判断

If 条件1 then

ElseIf 条件2 then

ElseIf 条件3 then

End If

写的代码达不到效果，老师有时间给看看吧。

谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试负责人出庭逻辑列.foxdb

参考

'''

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

逻辑列都为空的时候，勾选"出庭情况_无人出庭应诉"，出错。

这段DataColChanged中代码是不是与里面用黑点标注的两句代码冲突了，是不是循环引用了。

请老师帮忙看一下。

谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2018-8-6测试负责人出庭逻辑列.foxdb

加上systemready

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