此主题相关图片如下：qq图片20160202154641.png

根据单位名称的不同，自动或者手动排列序号，就像excel中拖动鼠标就能实现排序号那样，谢谢

参考

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

此主题相关图片如下：qq图片20160202162522.jpg

不执行啊，不能插入行，只能最后增加行，增加后也没序号，代码，请指导

Select e.DataCol.Name
    Case "单位名称"
        If e.DataRow.IsNull("单位名称") Then
            e.DataRow("序号") = Nothing
        Else
            Dim lb As String = e.DataRow("单位名称")
            If e.DataRow("序号").StartsWith(lb) = False \'如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(序号)","单位名称 = \'" & lb & "\' And [_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号
                If max > "" Then \'如果存在最大编号
                    idx = CInt(max.Substring(5,3)) + 1 \'获得最大编号的后三位顺序号,并加1
                Else
                    idx = 1 \'否则顺序号等于1
                End If
                e.DataRow("序号") = lb & Format(idx,"000")
            End If
        End If
End Select

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