[求助]在多值字段单元格选择多值后明细表增行问题！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]在多值字段单元格选择多值后明细表增行问题！

共有2673人关注过本帖树形打印复制链接主题：[求助]在多值字段单元格选择多值后明细表增行问题！

bashanren

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

等级：小狐帖子：316 积分：2899 威望：0 精华：0 注册：2009/7/25 18:29:00

[求助]在多值字段单元格选择多值后明细表增行问题！ 发帖心情

Post By：2019/1/18 23:44:00 [显示全部帖子]

各位老师晚上辛苦！！

项目中的“资质证书”表的“证书专业”列为多值字段，且为多值字段设置了“证书专业”明细表。

目标：在多值字段中选中值后，在明细表“证书专业明细”表中根据前面选定的每一个值增一行，并将选定值分别填入新增行的“证书专业”列。

谢谢各位老师。

bashanren

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

等级：小狐帖子：316 积分：2899 威望：0 精华：0 注册：2009/7/25 18:29:00

Post By：2019/1/19 14:34:00 [显示全部帖子]

谢谢“蓝”老师，但由于这段代码拒绝了重复内容的输入，所在，我略改了一下：目的是想同一个人的“证书专业”不再重复输入，可运行后提示“Long”转换问题，我查了列属性都是“字符”形的，不存在Long的问题，还请老师指导，谢谢！！

If e.DataCol.Name= "证书专业"

If e.NewValue > "" Then

For Each zs As String In e.NewValue.split(",")

dim r as datarow = e.datarow

dim xm as string = r("姓名")

Dim dr As DataRow = DataTables("证书专业明细").Find("证书专业='" & zs & "'" and "姓名='" & xm & "'")

If dr Is Nothing then

dr = DataTables("证书专业明细").AddNew

dr("证书专业") = zs

End If

主题：[求助]在多值字段单元格选择多值后明细表增行问题！