主题：[求助]关于自动编号的问题

 写这么多，你还不如做一个例子发上来

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

呃.....

Select e.DataCol.Name
    Case "所属地区"
        If e.DataRow.IsNull("所属地区") Then
            e.DataRow("客户编码") = Nothing
        Else
            Dim dq As String = e.DataRow("所属地区")
            Dim dqbm As String
            Dim I As String
            I = 1
            Dim fdr As DataRow = DataTables("地区").Find("地区名称 = '" & dq & "'")
            If fdr IsNot Nothing Then
                dqbm = fdr("地区编码")
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(客户编码)", "客户编码 like '" & i & dqbm & "%' and _Identify <> " & e.DataRow("_Identify")) '取得该类别的最大编号
                If max > "" Then '如果存在最大编号
                    idx = CInt(max.Substring((i & dqbm).length,4)) + 1 '获得最大编号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("客户编码") = I & dqbm & Format(idx,"0000")
            End If
        End If
End Select