根据[庭审笔录被告出庭]的值进行逻辑判断，为逻辑列赋值。
前面的确定了，后面的不再作判断，依次判断规则：
1、法定代表人如果到庭，勾选[负责人]、[正职]；将法定代表人的姓名和职务填入[负责人姓名职务]；
如果法定代表人没到庭，那么：
2、负责人如果到庭，勾选[负责人]、[副职]；将负责人的姓名和职务填入[负责人姓名职务]；
如果负责人没到庭，那么：
3、先判断委托代理人是否是本机关人员，再判断是否下级工作人员，最后判断是否律师。
4、都没有的勾选[无人出庭应诉]。
请老师指教！
谢谢！
此主题相关图片如下：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
加好友 
发短信
Post By：2018/8/3 10:10:00 [只看该作者]
