Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如果利用信息模板里面的代码来生成告知内容表中的告知内容信息！


  共有2546人关注过本帖树形打印复制链接

主题：如果利用信息模板里面的代码来生成告知内容表中的告知内容信息！
帅哥哟，离线，有人找我吗？
李孝春
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		如果利用信息模板里面的代码来生成告知内容表中的告知内容信息！  发帖心情 Post By：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日移送我院，……
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/13 14:18:00 [只看该作者]

模板内容设置为：
dim str = "【姓名】您好!【嫌疑人姓名】涉嫌【涉嫌案由】一案,【移送机关】于【受理日期】移送我院【流程名称】,根据系统轮案规则,现由你进行办理,请在【到期日期】前,办理完毕!有疑问请咨询案管办【案管办电话】!请参考:【法律法规】"

然后

str = str.replace("【姓名】",e.datarow("姓名")).replace("【嫌疑人姓名】",e.datarow("嫌疑人姓名")).............
msgbox(str)
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点蓝）模板内容设置为：dim str = "【姓名】...  发帖心情 Post By：2019/4/13 15:09:00 [只看该作者]

模板内容设置为：
 "【姓名】您好!【嫌疑人姓名】涉嫌【涉嫌案由】一案,【移送机关】于【受理日期】移送我院【流程名称】,根据系统轮案规则,现由你进行办理,请在【到期日期】前,办理完毕!有疑问请咨询案管办【案管办电话】!请参考:【法律法规】"

然后下面的代码写入 告知内容 表事件么
dim str = ab1("模板内容")
str = str.replace("【姓名】",e.datarow("姓名")).replace("【嫌疑人姓名】",e.datarow("嫌疑人姓名")).............
msgbox(str)
[此贴子已经被作者于2019/4/13 15:18:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点蓝）模板内容设置为：dim str = "【姓名】...  发帖心情 Post By：2019/4/13 15:31:00 [只看该作者]

有点蓝老师  模板内容不一定都是同样的字段值，怎么改进为自动根据【】中的内容去自动匹配对应的e.datarow（）中一样的内容呢？
str1.replace("【姓名】",e.DataRow("姓名")).replace("【嫌疑人姓名】",e.DataRow("嫌疑人姓名"))

不然会导致模板内容发生变更了  那我也要对应的去修改代码，然后重新生成程序,比较麻烦！  


模板例子如下：
 "【姓名】您好!【嫌疑人姓名】涉嫌【涉嫌案由】一案,【移送机关】于【受理日期】移送我院【流程名称】,根据系统轮案规则,现由你进行办理,请在【到期日期】前,办理完毕!有疑问请咨询案管办【案管办电话】!请参考:【法律法规】"

 "【姓名】您好!【嫌疑人姓名】涉嫌【涉嫌案由】一案,【移送机关】于【受理日期】移送我院【流程名称】,根据系统轮案规则,现由你协助【案件承办人】进行办理,请在【到期日期】前,办理完毕!有疑问请咨询案管办【案管办电话】!请参考:【法律法规】"

 "【姓名】您好!【嫌疑人姓名】涉嫌【涉嫌案由】一案,【移送机关】于【受理日期】移送我院【流程名称】!有疑问请咨询案管办【案管办电话】!请参考:【法律法规】"
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/13 16:27:00 [只看该作者]

专门做一个表保存模板内容，和动态代码，然后通过动态函数调用生成：http://www.foxtable.com/webhelp/scr/1487.htm

 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点蓝）专门做一个表保存模板内容，和动态代...  发帖心情 Post By：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()
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/13 16:54:00 [只看该作者]

什么地方不明白？

 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点蓝）什么地方不明白？  发帖心情 Post By：2019/4/13 17:07:00 [只看该作者]

这个动态代码的写法  没有思绪

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/13 17:29:00 [只看该作者]

可以先在内部函数编写好解析模板生成内容的代码，然后把这个代码放到表格里保存起来

使用的时候从表格取出来

Functions.Remove("Sum")
Functions.Add("Sum","表格取出来的代码")
Functions.Complie()
dim res =  Functions.Execute(“Sum”)
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点蓝）可以先在内部函数编写好解析模板生成...  发帖心情 Post By：2019/4/13 17:36:00 [只看该作者]

就是二楼的那查找替换代码么？
内部函数名称为sum？
然后代码内容为二楼的查找替换代码？
 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04980 秒, 4 次数据查询