主题：[求助]跨表有条件汇总多行字符串

1、表A根据表B中的产品名称及BW的条件

2、要实现表A动态汇总生成两列：汇总表B不一致的产品名称   汇总表B过期的产品名称

此主题相关图片如下：1、表a根据表b中的产品名称及bw的条件.jpg


此主题相关图片如下：2、要实现表a动态汇总生成两列.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:跨表有条件汇总多行字符串.foxdb

参考

http://www.foxtable.com/webhelp/scr/1435.htm

http://www.foxtable.com/webhelp/scr/0681.htm

 下面代码报错，怎么修改呢？

''组合字符串

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

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

没反应的，哪里出问题了？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:fxz.foxdb