主题：[求助]重复值也连接

Select Case e.DataCol.Name

    Case "图号序号" '需要赋值的列名不要放到这里

        Dim dr As DataRow = DataTables("校审汇总").Find("图号序号 = '" & e.DataRow("图号序号") & "'")

        If dr IsNot Nothing Then

            Dim s As String

            For Each dr As DataRow In DataTables("校审分项").Select("图号序号 = '" & e.DataRow("图号序号") & "'", "计算公式")

                s = s & "+" & dr("计算公式")

            Next

            dr("计算公式") = s.Trim("+")

        End If

End Select