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

参考

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

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

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