- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 多值字段值如何生成对应行数据？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=132162)
-- 发布时间：2019/3/15 11:17:00
-- 多值字段值如何生成对应行数据？
员额关系表中有如下字段和数据
此主题相关图片如下：11.png
如何生成如下格式的行数据呢？
此主题相关图片如下：22.png
-- 发布时间：2019/3/15 11:23:00
--
Dim str As String = "李四,王五"
For Each s As String In str.split(",")
Dim nr = Tables("表A").addnew
nr("第一列") = s
\'nr("第二列") = 某行("某列")
Next
-- 发布时间：2019/3/15 11:37:00
-- 回复：（有点甜）Dim str As String = "李四,王五"F...
有点甜老师 按照你提供的思路 我采用下列方式实现了，代码部分有没有简化的可能呢？
此主题相关图片如下：44.png
Dim a As Row=Tables("员额关系").Current
Dim nr2 = Tables("告知内容").addnew
nr2("姓名") = a("员额检察官")
nr2("告知内容") = a("备注")
Dim str As String = a("检察官助理")
For Each s As String In str.split(",")
Dim nr = Tables("告知内容").addnew
nr("姓名") = s
nr("告知内容") = a("备注")
Next
Dim str1 As String = a("书记员")
For Each s1 As String In str1.split(",")
Dim nr1 = Tables("告知内容").addnew
nr1("姓名") = s1
nr1("告知内容") = a("备注")
Next
-- 发布时间：2019/3/15 11:39:00
--
就这样写，不需要简化。
-- 发布时间：2019/3/15 11:49:00
-- 回复：（有点甜）就这样写，不需要简化。
OK 谢谢有点甜老师