主题：同表复制数据问题

Select e.DataCol.Name

    Case "项目号"

        If e.DataRow.IsNull("项目号") Then

            e.DataRow("报价单编号") = Nothing

        Else

            Dim xmh As String = e.DataRow("项目号")

            If e.DataRow("报价单编号").StartsWith(xmh) = False '如果单据报价单编号前缀不符

                Dim max As String

                Dim idx As Integer

                max = e.DataTable.Compute("Max(报价单编号)","项目号 = '" & xmh & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该项目号的最大报价单编号

                If max > "" Then '如果存在最大报价单编号

                    idx = right(max,1) + 1 '获得最大报价单编号的后三位顺序号,并加1

                Else

                    idx = 1 '否则顺序号等于1

                End If

                e.DataRow("报价单编号") = "IQ" & xmh & "-" & Format(idx,"0")

            End If

        End If

End Select