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

开发者密码？不是888

用户名和密码也在数据库里面，估计是发错了，下面是复制出来的数据库文件。

[此贴子已经被作者于2019/1/19 10:27:41编辑过]

直接复制出来的数据库

下载信息 [文件大小：下载次数： ]
点击浏览该文件:wzcmz.rar

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

到编号表数据库创建一个存储过程，执行以下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")

版主您好！ 24楼的方法太高深了，我是一个初学，还是用您推荐的方法二吧，有个别重复在手动调整吧。用方法二是不是就是用24楼加粗字体部分代码就可以了。

既然这样想，也就没啥好说的了。把原来的代码的cmd1和cmd2的数据源都改为编号表的数据源即可。

版主您好！不好意思，我找了到这里，填写了您给的代码，是这样吗？

-- ================================================

-- Template generated from Template Explorer using:

-- Create Procedure (New Menu).SQL

-- Use the Specify Values for Template Parameters

-- command (Ctrl-Shift-M) to fill in the parameter

-- values below.

-- This block of comments will not be included in

-- the definition of the procedure.

-- ================================================

SET ANSI_NULLS ON

SET QUOTED_IDENTIFIER ON

-- =============================================

-- Author: <Author,,Name>

-- Create date: <Create Date,,>

-- Description: <Description,,>

-- =============================================

CREATE PROCEDURE <Procedure_Name, sysname, ProcedureName>

-- Add the parameters for the stored procedure here

<@Param1, sysname, @p1> <Datatype_For_Param1, , int> = <Default_Value_For_Param1, , 0>,

<@Param2, sysname, @p2> <Datatype_For_Param2, , int> = <Default_Value_For_Param2, , 0>

BEGIN

-- SET NOCOUNT ON added to prevent extra result sets from

-- interfering with SELECT statements.

SET NOCOUNT ON;

-- Insert statements for procedure here

SELECT <@Param1, sysname, @p1>, <@Param2, sysname, @p2>

END

CREATE PROCEDURE [dbo].[usp_GetCode]

-- Add the parameters for the stored procedure here

@deptCode nvarchar(50),

@key int OUTPUT

BEGIN

打开一个查询窗口，直接把24楼的存储过程sql复制进去执行即可

我打开了一个窗口，不知道是不是查询窗口，执行了代码，显示如下

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

主题：自动生成编号