以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如果利用信息模板里面的代码来生成告知内容表中的告知内容信息! (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=133391) |
-- 作者:李孝春 -- 发布时间:2019/4/13 14:09:00 -- 如果利用信息模板里面的代码来生成告知内容表中的告知内容信息! 告知内容表事件代码: 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日移送我院,…… |
-- 作者:有点蓝 -- 发布时间:2019/4/13 14:18:00 -- 模板内容设置为: dim str = "【姓名】您好!【嫌疑人姓名】涉嫌【涉嫌案由】一案,【移送机关】于【受理日期】移送我院【流程名称】,根据系统轮案规则,现由你进行办理,请在【到期日期】前,办理完毕!有疑问请咨询案管办【案管办电话】!请参考:【法律法规】" 然后 str = str.replace("【姓名】",e.datarow("姓名")).replace("【嫌疑人姓名】",e.datarow("嫌疑人姓名"))............. msgbox(str)
|
-- 作者:李孝春 -- 发布时间:2019/4/13 15:09:00 -- 回复:(有点蓝)模板内容设置为:dim str = "【姓名】... 模板内容设置为: "【姓名】您好!【嫌疑人姓名】涉嫌【涉嫌案由】一案,【移送机关】于【受理日期】移送我院【流程名称】,根据系统轮案规则,现由你进行办理,请在【到期日期】前,办理完毕!有疑问请咨询案管办【案管办电话】!请参考:【法律法规】" 然后下面的代码写入 告知内容 表事件么 dim str = ab1("模板内容") str = str.replace("【姓名】",e.datarow("姓名")).replace("【嫌疑人姓名】",e.datarow("嫌疑人姓名"))............. msgbox(str)
[此贴子已经被作者于2019/4/13 15:18:42编辑过]
|
-- 作者:李孝春 -- 发布时间:2019/4/13 15:31:00 -- 回复:(有点蓝)模板内容设置为:dim str = "【姓名】... 有点蓝老师 模板内容不一定都是同样的字段值,怎么改进为自动根据【】中的内容去自动匹配对应的e.datarow()中一样的内容呢? str1.replace("【姓名】",e.DataRow("姓名")).replace("【嫌疑人姓名】",e.DataRow("嫌疑人姓名")) 不然会导致模板内容发生变更了 那我也要对应的去修改代码,然后重新生成程序,比较麻烦! 模板例子如下: "【姓名】您好!【嫌疑人姓名】涉嫌【涉嫌案由】一案,【移送机关】于【受理日期】移送我院【流程名称】,根据系统轮案规则,现由你进行办理,请在【到期日期】前,办理完毕!有疑问请咨询案管办【案管办电话】!请参考:【法律法规】" "【姓名】您好!【嫌疑人姓名】涉嫌【涉嫌案由】一案,【移送机关】于【受理日期】移送我院【流程名称】,根据系统轮案规则,现由你协助【案件承办人】进行办理,请在【到期日期】前,办理完毕!有疑问请咨询案管办【案管办电话】!请参考:【法律法规】" "【姓名】您好!【嫌疑人姓名】涉嫌【涉嫌案由】一案,【移送机关】于【受理日期】移送我院【流程名称】!有疑问请咨询案管办【案管办电话】!请参考:【法律法规】" |
-- 作者:有点蓝 -- 发布时间:2019/4/13 16:27:00 -- 专门做一个表保存模板内容,和动态代码,然后通过动态函数调用生成:http://www.foxtable.com/webhelp/scr/1487.htm |
-- 作者:李孝春 -- 发布时间:2019/4/13 16:38:00 -- 回复:(有点蓝)专门做一个表保存模板内容,和动态代... 已经单独创建了一个信息模板 表 并且有适用人员 流程名称 模板内容 备注 四个列 现在按照老师的方法,可以对应生成一个具体的内容了 动态代码这个还不大会 下面的理解 我不大明白 老师可以指导下么 Dim Code As String ’定义个字符变量 Code = "Dim Val1 As Integer = 1" & vbcrlf ’val1等于1 Code = Code & "Dim Val2 As Integer = 2" & vbcrlf ’val2等于2 Code = Code & "Dim Sum As Integer = Val1 + Val2" & vbcrlf ’求和1+2 Code = Code & "Return Sum" Functions.Add("Sum",Code) Functions.Complie() |
-- 作者:有点蓝 -- 发布时间:2019/4/13 16:54:00 -- 什么地方不明白? |
-- 作者:李孝春 -- 发布时间:2019/4/13 17:07:00 -- 回复:(有点蓝)什么地方不明白? 这个动态代码的写法 没有思绪 |
-- 作者:有点蓝 -- 发布时间:2019/4/13 17:29:00 -- 可以先在内部函数编写好解析模板生成内容的代码,然后把这个代码放到表格里保存起来 使用的时候从表格取出来 Functions.Remove("Sum") Functions.Add("Sum","表格取出来的代码")Functions.Complie() dim res = Functions.Execute(“Sum”) |
-- 作者:李孝春 -- 发布时间:2019/4/13 17:36:00 -- 回复:(有点蓝)可以先在内部函数编写好解析模板生成... 就是二楼的那查找替换代码么? 内部函数名称为sum? 然后代码内容为二楼的查找替换代码?
|