主题：[求助]如何实现分段的序号排列

参考

http://www.foxtable.com/help/topics/2403.htm

Select e.DataCol.Name
    Case "单位名称"
        If e.DataRow.IsNull("单位名称") Then
            e.DataRow("序号") = Nothing
        Else
            Dim lb As String = e.DataRow("单位名称")
            Dim max As Integer
            max = e.DataTable.Compute("Max(序号)","单位名称 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
            e.DataRow("序号") = max + 1
        End If
End Select