自动生成编号 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这个方法还是不能保证编号不会重复的。建议采用存储过程处理

到编号表数据库创建一个存储过程，执行以下sql：

CREATE PROCEDURE [dbo].[usp_GetCode]

-- Add the parameters for the stored procedure here

@deptCode nvarchar(50),

@key int OUTPUT

BEGIN

declare @count int;

SELECT @count = count(部门代码) from dbo.编号 where 部门代码 = @deptCode;

if @count = 0

begin

set @key = 1;

insert into 编号(部门代码,顺序号) values(@deptCode,@key);

return ;

end

else

begin

update 编号 set 顺序号 = 顺序号+1 where 部门代码 = @deptCode;

SELECT @key = 顺序号 from dbo.编号 where 部门代码 = @deptCode;

return ;

end

END

BeforeSaveDataRow事件

Dim dr As DataRow = e.DataRow

Dim pf As String

If dr.RowState <> DataRowState.Added Then '如果不是新增行

Return '那么返回

ElseIf dr.IsNull("申请日期") Then '如果没有输入日期

e.Cancel = True '取消保存此行

MessageBox.Show("必须输入日期!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Return

ElseIf dr.IsNull("部门代码") Then '如果没有输入日期

e.Cancel = True '取消保存此行

MessageBox.Show("必须输入部门代码!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Return

Else

pf = dr("部门代码") & "-" &Format(dr("申请日期"),"yyyyMMdd") '否则获得编号的前缀,两位年,两位月

End If

Dim cmd As new SQLCommand

cmd.ConnectionName = "物资出门证台账SQL"

cmd.CommandText = "usp_GetCode"

cmd.StoredProcedure = True

cmd.Parameters.Add("@deptCode",pf)

cmd.Parameters.Add("@key",1,True)

cmd.ExecuteNonQuery

Dim key As Integer = cmd.Parameters("@key") '获取存储过程返回的日期值

e.DataRow("编号") = pf & "-" & Format(Key,"0000")

主题：自动生成编号