主题：报表自动汇总问题

Select e.DataCol.Name

    Case "基本信息_日期","基本信息_组团社"

        If e.DataRow.IsNull("基本信息_日期") OrElse e.DataRow.IsNull("基本信息_组团社") Then

            e.DataRow("基本信息_团号") = Nothing

        Else

            Dim d As Date = e.DataRow("基本信息_日期")

            Dim y As Integer = d.Year

            Dim m As Integer = d.Month

            Dim Days As Integer = Date.DaysInMonth(y,m)

            Dim fd As Date = New Date(y,m,1)

            Dim ld As Date = New Date(y,m,Days)

            Dim bh As String = "EZKQ-" & Format(d,"yyyyMMdd") & "-" & e.DataRow("基本信息_组团社") & "-"

            If e.DataRow("基本信息_团号").StartsWith(bh) = False

                Dim max As String

                Dim idx As Integer

                Dim flt As String

                flt = "基本信息_组团社 = '" & e.DataRow("基本信息_组团社") & "' And 基本信息_日期 >= #" & fd & "# And 基本信息_日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")

                max = e.DataTable.Compute("Max(基本信息_团号)",flt)

                If max > "" Then

                    idx = CInt(max.Substring(max.Length- 4,4)) + 1

                Else

                    idx = 1

                End If

                e.DataRow("基本信息_团号") = bh & Format(idx,"0000")

            End If

        End If

End Select