[求助]如已存在，就不新建行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]如已存在，就不新建行

共有2606人关注过本帖树形打印复制链接主题：[求助]如已存在，就不新建行

miaoqingqing

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

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

[求助]如已存在，就不新建行 发帖心情

Post By：2020/4/15 13:04:00 [显示全部帖子]

Dim a As Row=Tables("成果台账").Current

Dim str As String = a("考核参与人")

For Each s As String In str.split(",")

Dim r2 As DataRow = DataTables("方案成果").find("方案考核人 = s ") 求助如果已存在该人，就不新建行

If r2 Is Nothing Then

Dim nr = Tables("方案成果").addnew

nr("成果编号") = a("成果编号")

nr("方案考核人") = s

nr("项目成果") = a("项目成果")

End If

miaoqingqing

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

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）先看几遍：http://www.foxtable.com/... 发帖心情

Post By：2020/4/16 9:32:00 [显示全部帖子]

Dim a As Row=Tables("成果台账").Current

Dim str As String = a("考核参与人")

For Each s As String In str.split(",")

Dim r2 As DataRow = DataTables("方案成果").find("方案考核人 not In ('" & s & "')")

If r2 Is Nothing Then

Dim nr = Tables("方案成果").addnew

nr("成果编号") = a("成果编号")

nr("方案考核人") = s

nr("项目成果") = a("项目成果")

End If

求助，

成果台账，考核参与人有张三，李四，王五多值3人名

实现方案成果表，方案考核人，已存在张三

上楼代码实现只新增

李四

王五

两行

miaoqingqing

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

加好友

发短信

等级：三尾狐帖子：660 积分：5180 威望：0 精华：0 注册：2019/7/26 12:54:00

回复：（有点蓝）Dim r2 As DataRow = DataTables("方... 发帖心情

Post By：2020/4/16 10:24:00 [显示全部帖子]

此主题相关图片如下：mmexport1587003539113.jpg

Dim a As Row=Tables("成果台账").Current

Dim str As String = a("考核参与人")

For Each s As String In str.split(",")

Dim r2 As DataRow = DataTables("方案成果").find("方案考核人 = '" & s & "'")

If r2 Is Nothing Then

Dim nr = Tables("方案成果").addnew

nr("成果编号") = a("成果编号")

nr("方案考核人") = s

nr("项目成果") = a("项目成果")

End If

中文逗号不行

新增行张三，李四，王五，不是想要的效果

想新增行

李四

王五

[此贴子已经被作者于2020/4/16 10:26:12编辑过]

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

主题：[求助]如已存在，就不新建行