以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]父表的列1、列2、列,组合子表的列值为1、2、3行的字符串,  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117708)

--  作者:湛江智
--  发布时间:2018/4/18 7:41:00
--  [求助]父表的列1、列2、列,组合子表的列值为1、2、3行的字符串,

如题


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

 

下面代码怎么修改:


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


--  作者:有点甜
--  发布时间:2018/4/18 9:14:00
--  

试试

 

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


--  作者:湛江智
--  发布时间:2018/4/18 11:41:00
--  回复:(有点甜)试试?e.DataRow("字符串分项...

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

 

 

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:ff.zip

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

--  作者:有点甜
--  发布时间: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

--  作者:湛江智
--  发布时间:2018/4/18 13:53:00
--  回复:(有点甜)Select Case e.DataCol.Name &n...
还是不行,以前有这个帖子吗?
--  作者:有点甜
--  发布时间:2018/4/18 14:32:00
--  

汗,我测试没问题。

 

填写好代码以后,请重置列,好吗?

 

 

自动重置列,请参考 http://www.foxtable.com/webhelp/scr/1587.htm

 


--  作者:czquickly
--  发布时间:2018/4/18 14:41:00
--  
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=117732我的需求和你差不多,你可以参考我那边的代码
--  作者:有点甜
--  发布时间:2018/4/18 15:49:00
--  
认认真真,看6楼。