[求助]父表的列1、列2、列，组合子表的列值为1、2、3行的字符串， - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]父表的列1、列2、列，组合子表的列值为1、2、3行的字符串，

共有3147人关注过本帖树形打印复制链接主题：[求助]父表的列1、列2、列，组合子表的列值为1、2、3行的字符串，

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6688 威望：0 精华：0 注册：2014/11/26 12:32:00

[求助]父表的列1、列2、列，组合子表的列值为1、2、3行的字符串， 发帖心情

Post By：2018/4/18 7:41:00 [只看该作者]

如题

图片点击可在新窗口打开查看此主题相关图片如下：实现效果.png

下面代码怎么修改：

Select Case e.DataCol.Name
Case "图号序号","字符串分项"
e.DataRow("字符串分项") = DataTables("校审分项").GetComboListString("字符串分项","图号序号 = '" & e.DataRow("图号序号") & "'").Replace("|",",")
End Select

有点甜

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

加好友

发短信

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

Post By：2018/4/18 9:14:00 [只看该作者]

试试

e.DataRow("字符串分项") = DataTables("校审分项").GetComboListString("字符串分项","图号序号 = '" & e.DataRow("图号序号") & "'", "_Identify").Replace("|",",")

湛江智

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

加好友

发短信

等级：四尾狐帖子：812 积分：6688 威望：0 精华：0 注册：2014/11/26 12:32:00

回复：（有点甜）试试?e.DataRow("字符串分项... 发帖心情

Post By：2018/4/18 11:41:00 [只看该作者]

还是不行，辛苦版主帮忙调试一下了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:ff.zip

[此贴子已经被作者于2018/4/18 11:42:03编辑过]

有点甜

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

加好友

发短信

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

Post By：2018/4/18 11:49:00 [只看该作者]

Select Case e.DataCol.Name
    Case "图号序号","字符串分项"
        e.DataRow("字符串分项") = DataTables("校审分项").GetComboListString("字符串分项","图号序号 = '" & e.DataRow("图号序号") & "'", "_Identify").Replace("|",",")
        e.DataRow("列1") = DataTables("校审分项").GetComboListString("字符串分项","图号序号 = '" & e.DataRow("图号序号") & "' and 列值 = '1'", "_Identify").Replace("|",",")
        e.DataRow("列2") = DataTables("校审分项").GetComboListString("字符串分项","图号序号 = '" & e.DataRow("图号序号") & "' and 列值 = '2'", "_Identify").Replace("|",",")
        e.DataRow("列3") = DataTables("校审分项").GetComboListString("字符串分项","图号序号 = '" & e.DataRow("图号序号") & "' and 列值 = '3'", "_Identify").Replace("|",",")
End Select