- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]跨表有条件汇总多行字符串 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120083)
-- 发布时间：2018/6/6 17:23:00
-- [求助]跨表有条件汇总多行字符串
1、表A根据表B中的产品名称及BW的条件
2、要实现表A动态汇总生成两列：汇总表B不一致的产品名称 汇总表B过期的产品名称
此主题相关图片如下：1、表a根据表b中的产品名称及bw的条件.jpg
此主题相关图片如下：2、要实现表a动态汇总生成两列.jpg
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:跨表有条件汇总多行字符串.foxdb |
-- 发布时间：2018/6/6 17:25:00
--
参考
http://www.foxtable.com/webhelp/scr/1435.htm
http://www.foxtable.com/webhelp/scr/0681.htm
-- 发布时间：2018/6/6 18:10:00
-- 回复：（有点甜）参考 http://www.foxtable....
下面代码报错，怎么修改呢？
\'\'组合字符串
Select Case e.DataCol.Name
Case "项目编号","产品名称"
Dim dt As DataTable =DataTables("表A")
Dim dr As DataRow = dt.DataRow
dr("汇总表B不一致的产品名称") = DataTables("表B").GetComboListString("产品名称","项目编号 = \'" & e.DataRow("项目编号") & "\' and BW = \'不一致的\'", "_Identify").Replace("|",",")
dr("汇总表B不一致的产品名称") = DataTables("表B").GetComboListString("产品名称","项目编号 = \'" & e.DataRow("项目编号") & "\' and BW = \'过期的\'", "_Identify").Replace("|",",")
End Select
-- 发布时间：2018/6/6 18:12:00
--
Select Case e.DataCol.Name
Case "项目编号","产品名称"
Dim dr As DataRow = e.DataRow
dr("汇总表B不一致的产品名称") = DataTables("表B").GetComboListString("产品名称","项目编号 = \'" & e.DataRow("项目编号") & "\' and BW = \'不一致的\'", "_Identify").Replace("|",",")
dr("汇总表B不一致的产品名称") = DataTables("表B").GetComboListString("产品名称","项目编号 = \'" & e.DataRow("项目编号") & "\' and BW = \'过期的\'", "_Identify").Replace("|",",")
End Select
-- 发布时间：2018/6/6 18:23:00
-- 回复：（有点甜）Select Case e.DataCol.Name &n...
没反应的，哪里出问题了？
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:fxz.foxdb |
-- 发布时间：2018/6/6 19:54:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:fxz (1).foxdb |