告知内容表事件代码：Dim ab1 As DataRow= DataTables("信息模板").SQLFind("适用人员='" & e.DataRow("人员类型") & "'and 流程名称='" & e.DataRow("流程名称") & "'")
If ab1 IsNot Nothing Then
Dim s1 As String
s1 = e.DataRow("案件状态")
If e.DataRow("案件类别")="二审公诉案件(未检)" Then
e.DataRow("流程名称")="审查起诉"
If s1.contains("审结") Then
e.DataRow("告知内容")=ab1("模板内容")
End If
If s1.contains("审理") Then
e.DataRow("告知内容")=ab1("模板内容")
End If
End If
信息模板表里面有适用人员 流程名称 模板内容三个字段
模板内容字段值为：
e.datarow("姓名") & "您好!" & e.datarow("嫌疑人姓名") & "涉嫌" & e.datarow("涉嫌案由") & "一案,"& ab("移送机关") & "于" & e.datarow("受理日期") & "移送我院" & e.datarow("流程名称") & ",根据系统轮案规则,现由你进行办理,请在" & e.datarow("到期日期") & "前,办理完毕!有疑问请咨询案管办" & ab("案管办电话") & "!请参考:" & e.datarow("法律法规")
怎么利用这个模板内容字段值得内容 读取到告知内容中的事件中去，并且生成对应的告知内容值呢？
当前告知内容得到的值是模板内容的原值：如下：
e.datarow("姓名") & "您好!" & e.datarow("嫌疑人姓名") & "涉嫌" & e.datarow("涉嫌案由") & "一案,"& ab("移送机关") & "于" & e.datarow("受理日期") & "移送我院" & e.datarow("流程名称") & ",根据系统轮案规则,现由你进行办理,请在" & e.datarow("到期日期") & "前,办理完毕!有疑问请咨询案管办" & ab("案管办电话") & "!请参考:" & e.datarow("法律法规")
效果值应该如下：
张三，你好！李四涉嫌抢劫罪一案，公安机关于2019年12月1日移送我院，……
加好友 
发短信
Post By：2019/4/13 14:09:00 [只看该作者]
