以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  是否关联字段值,默认是空,当新增一条关联人信息后,该值为“是”,那么当新增第二条关联人信息后,怎么触发是否关联事件代码,并就新增的关联人进行相关操作呢?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132507)

--  作者:李孝春
--  发布时间:2019/3/23 14:26:00
--  是否关联字段值,默认是空,当新增一条关联人信息后,该值为“是”,那么当新增第二条关联人信息后,怎么触发是否关联事件代码,并就新增的关联人进行相关操作呢?
是否关联字段值,默认是空,当新增一条关联人信息后,该值为“是”,那么当新增第二条关联人信息后,怎么触发是否关联事件代码,并就新增的关联人进行相关操作呢?

图片点击可在新窗口打开查看此主题相关图片如下:2.png
图片点击可在新窗口打开查看

是否关联事件代码:(实现第一个关联人相关数据生成,第二个就不再生成相关数据了,麻烦修正为第二个以及第N个都可以生成数据)

[此贴子已经被作者于2019/3/24 9:43:23编辑过]

--  作者:有点蓝
--  发布时间:2019/3/23 14:53:00
--  
这个意思?

Case "是否关联" ,"审结处理结果"
    If e.DataRow("是否关联") ="是" Then
        If e.DataRow("审结处理结果") >"" Then
            Dim dr1 As DataRow = DataTables("人员关联表").Find("部门受案号 = \'" & e.DataRow("部门受案号") & "\' ")
                dr2 =  DataTables("告知内容").AddNew()
                dr2("部门受案号")=e.DataRow("部门受案号")
                dr2("嫌疑人姓名")=e.DataRow("嫌疑人姓名")
                dr2("是否告知")="否"
                dr2("承办人")=e.DataRow("承办人")
                dr2("告知方式_邮件")="否"
                dr2("告知方式_短信")="否"
                dr2("告知方式_QQ")="否"
                dr2("告知方式_微信")="否"
                dr2("事项理由")="请注意"
                dr2("案件状态")="已审结"
                dr2("涉嫌案由")=e.DataRow("涉嫌案由")
……

--  作者:李孝春
--  发布时间:2019/3/23 17:07:00
--  回复:(有点蓝)这个意思?Case "是否关联" ,"审结处...
不是哦   这个DR1没有被使用哦  
代码实现第一个关联人相关数据生成,然后就把是否关联修改为是了   导致第二个就不再生成相关数据了,麻烦修正为第二个以及第N个都可以生成数据

--  作者:有点蓝
--  发布时间:2019/3/23 17:27:00
--  
没看懂您的业务逻辑。每一行数据详细截图说明,要什么效果
--  作者:李孝春
--  发布时间:2019/3/23 23:02:00
--  回复:(有点蓝)没看懂您的业务逻辑。每一行数据详细...
例子,请在测试前,先进行清空案件基本信息表  关联人表  告知内容表,然后再导入批捕数据进行测试,业务逻辑如下图:
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:信息自动化求助.zip


业务逻辑截图:

图片点击可在新窗口打开查看此主题相关图片如下:111.png
图片点击可在新窗口打开查看
问题1:点击导入选择批捕数据后,生成的数据第一个能够准确生成对应的承办人及助理两条数据,但是第二个数据就只生成了一个,然后助理人员又重复了第一个数据与第一个助理一样  求解!

图片点击可在新窗口打开查看此主题相关图片如下:222.png
图片点击可在新窗口打开查看
说明2:选择602号行,点击增加关联人,弹出关联人管理框,输入信息后点保存,新增与当前关联人对应的一条告知内容,并且将是否关联为是。

图片点击可在新窗口打开查看此主题相关图片如下:333.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:444.png
图片点击可在新窗口打开查看

说明3:选择602号行,或者点新增,增加先得关联人,输入信息后点保存,无法新增与当前新增关联人对应的一条告知内容了,因为是否关联在上一个关联人时已经设定为“是”。系统无法再次触发生成对应关联人告知内容了



[此贴子已经被作者于2019/3/23 23:12:12编辑过]

--  作者:有点甜
--  发布时间:2019/3/24 12:56:00
--  

函数【find员额】,修改第一句代码

 

Dim b As DataRow = args(0)

 

调用代码,修改,如

 

Functions.Execute("find员额", e.DataRow)


--  作者:李孝春
--  发布时间:2019/3/24 13:27:00
--  回复:(有点甜)函数【find员额】,修改第一句代码...
谢谢有点甜老师,学习了!

是否关联  新增一条关联人记录后   就修改值为“是”  并触发是否关联事件代码,新增一条告知内容
当新增第二条关联人记录后,怎么再次触发是否关联事件代码,新增一条告知内容呢?当前操作是没有任何告知内容新增,只能新增第一条关联人的

--  作者:有点甜
--  发布时间:2019/3/24 14:49:00
--  

重置列即可,参考

 

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