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

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

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

bashanren

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

加好友

发短信

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

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

Post By：2019/1/18 23:44:00 [只看该作者]

各位老师晚上辛苦！！

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

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

谢谢各位老师。

有点蓝

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

加好友

发短信

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

Post By：2019/1/19 8:53:00 [只看该作者]

“资质证书”表datacolchanged

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

If e.NewValue > "" Then

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

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

If dr Is Nothing then

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

dr("证书专业") = zs

End If

bashanren

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

有点蓝

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

加好友

发短信

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

Post By：2019/1/19 14:47:00 [只看该作者]

这个帮助建议仔细看10遍：http://www.foxtable.com/webhelp/scr/1284.htm

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

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

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