主题：自动编号

 参考 示例三

 

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
            Dim idx As Integer
            max = e.DataTable.Compute("Max(企业编号)","群组分类 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
            If max > "" Then '如果存在最大编号
                idx = max + 1 '获得最大编号的顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("企业编号") = idx
        End If
End Select

 回复5楼，你的 企业编号 要清空，然后改成 数值列，不要用字符列

 呵呵，要这样改。

 

Select e.DataCol.Name
    Case "群组分类"
        If e.DataRow.IsNull("群组分类") Then
            e.DataRow("企业编号") = Nothing
        Else
            Dim lb As String = e.DataRow("群组分类")
            Dim idx As Integer
            idx = e.DataTable.Compute("Max(企业编号)","群组分类 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
            e.DataRow("企业编号") = idx + 1
        End If
End Select