主题：序列号怎么根据其他列的相同内容而自动合并

If e.DataCol.Name = "单号" Then

    If e.DataRow.IsNull("单号") Then

        e.DataRow("序号") = Nothing

    Else

        Dim dr As DataRow = e.DataTable.find("单号='" & e.DataRow("单号") & "' and _Identify <>" & e.DataRow("_Identify"))

        If dr Is Nothing Then

            e.DataRow("序号") = e.DataTable.GetValues("单号='" & e.DataRow("单号") & "'").count

        Else

            e.DataRow("序号") = dr("序号")

        End If

    End If

End If