是否关联字段值，默认是空，当新增一条关联人信息后，该值为“是”，那么当新增第二条关联人信息后，怎么触发是否关联事件代码，并就新增的关联人进行相关操作呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 是否关联字段值，默认是空，当新增一条关联人信息后，该值为“是”，那么当新增第二条关联人信息后，怎么触发是否关联事件代码，并就新增的关联人进行相关操作呢？

共有2087人关注过本帖树形打印复制链接主题：是否关联字段值，默认是空，当新增一条关联人信息后，该值为“是”，那么当新增第二条关联人信息后，怎么触发是否关联事件代码，并就新增的关联人进行相关操作呢？

李孝春

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

是否关联字段值，默认是空，当新增一条关联人信息后，该值为“是”，那么当新增第二条关联人信息后，怎么触发是否关联事件代码，并就新增的关联人进行相关操作呢？发帖心情

Post By：2019/3/23 14:26:00 [只看该作者]

是否关联字段值，默认是空，当新增一条关联人信息后，该值为“是”，那么当新增第二条关联人信息后，怎么触发是否关联事件代码，并就新增的关联人进行相关操作呢？

此主题相关图片如下：2.png

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

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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：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("涉嫌案由")

……

李孝春

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）这个意思？Case "是否关联" ,"审结处... 发帖心情

Post By：2019/3/23 17:07:00 [只看该作者]

不是哦这个DR1没有被使用哦

代码实现第一个关联人相关数据生成，然后就把是否关联修改为是了导致第二个就不再生成相关数据了，麻烦修正为第二个以及第N个都可以生成数据

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：109678 积分：558082 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/3/23 17:27:00 [只看该作者]

没看懂您的业务逻辑。每一行数据详细截图说明，要什么效果

李孝春

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）没看懂您的业务逻辑。每一行数据详细... 发帖心情

Post By：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编辑过]

有点甜

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/24 12:56:00 [只看该作者]

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

Dim b As DataRow = args(0)

调用代码，修改，如

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

李孝春

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点甜）函数【find员额】，修改第一句代码... 发帖心情

Post By：2019/3/24 13:27:00 [只看该作者]

谢谢有点甜老师，学习了！

是否关联新增一条关联人记录后就修改值为“是” 并触发是否关联事件代码，新增一条告知内容

当新增第二条关联人记录后，怎么再次触发是否关联事件代码，新增一条告知内容呢？当前操作是没有任何告知内容新增，只能新增第一条关联人的

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/3/24 14:49:00 [只看该作者]

重置列即可，参考

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

下一主题 >> << 上一主题

主题：是否关联字段值，默认是空，当新增一条关联人信息后，该值为“是”，那么当新增第二条关联人信息后，怎么触发是否关联事件代码，并就新增的关联人进行相关操作呢？