A. 请问在Access里，如何自动生成这种编号
提供一个思路吧，在SQL Server 2008中测试。假设你这个表名叫Proct。
Declare @Type nvarchar(8)
Set @Type = 'A'
Declare @TypeCnt Int
Select @TypeCnt = COUNT(1) From Proct Where [产品类别] = @Type
Set @TypeCnt = @TypeCnt + 1
Insert into Proct Values (@Type,@Type + right(cast(power(10,4) + @TypeCnt as varchar),4))
每次你这样插入，就会产生你要看到的那种产品号码，相当于根据产品类型自动生成。只要只能产品类型A,就会自动生成一个编号。很久不用Access了。但是道理应该差不多。
B. 表单中的编号我用的是字母+数字的字符串，想问添加的时候字母设置让他自动递增添加
这样可能比较麻烦，但是我没想到其他好办法。首先提取编号字符串"A0001"，然后将编号拆分为两部分字符串"a" 和数字"1"，然后把数字"1"加1后，再转变成字符串"0002"，和字符串"A"合并成"A0002"。
C. 学号0001自动编号怎么弄
发发如下：
打开表格，选中要输入学号的一列。
在工具栏中找到单元格格式。
单击下拉菜单选择文本。
此时就可以正常输入学号0001了。
在所有学校里，前四位都是自己学校的学号代码。在自己学校内，例如有的学校为年份+班级+编号，如20050603，表示该同学为2005年入学，在6班，编号为3号。有的学校还包含学院或专业的信息，如23050602，23表示该学校的某个专业或学院的编号，05表示2005年，06表示6班，02为班内编号。学号只是一个编号而已，只有在就读的学校里才有用。还有的学校在学号的倒数第二位，用奇偶数来区分男女，偶数就代表女性，奇数就代表男性，这样就容易区分某个人的性别！
D. 自动填充学号如0001这样的
A列上的单元格还未真正是“常规”格式，因为只要看看单元格左上角的绿色小三角形就知道了。你试试双击这些有三角形的单元格后再退出，就能变成真正的“常规”格式了。
而且要实现快速向下按序列填充是有多种方法的，只是你的这些数字都太多位数了，所以如果用“常规”格式后再手工下拉的方法，结果就会以科学记数法去显示，也就达不到你的要求了。以下给你几个方法试试，但前提是已经将单元格的格式设置成“常规”：
1、在第1个单元格输入：=200915410&row(a201)
再将公式向下拉填充复制就可以了；
2、在第1个单元格输入：20091501
选中这个单元格后摁住CTRL键，再点击单元格右下角的小黑点并向下拉填充复制就可以了；
3、在第1个单元格输入：20091501 在第2个单元格输入：2009102
同时选中这两个单元格，再点击单元格右下角的小黑点并向下拉填充复制就可以了。
4、在第1个单元格输入：20091501
选中这个单元格，打开菜单“编辑”-“填充”-“序列”，点选“列”，在“终止值”输入最后一个序号(如：200915410300)，点“确定”后就能一次生成所有序号。
注：除第1种方法能直接得到效果外，其他的3种方法虽然不用公式得到结果，但因数字位数太多，为了不变成科学记数法的显示，可以通过第2步来达到与第1种方法的显示效果。方法：选中这些单元格，打开菜单“格式”-“单元格”-“数字”-“自定义”，在“类型”中输入：""#
保存后就是你要的效果了。
E. Word怎么自动生成编号 Word自动生成编号方法
使用VBA，按Alt+F11键打开，插入一个新模块，输入代码，我只能让编号打印的时候累加，比如起始打印编号0001，打印第二张就变为0002，一直累加到9999，代码如下：
Sub普通编号()
'
'
'
'
DimiAsInteger
DimdyAsInteger
OnErrorResumeNext
i=InputBox("请输入起始数","起始数",1)-1
dy=InputBox("请输入打印份数","打印份数",1)
Fordy=1TodyStep1
i=i+1
Ifi>=1000Then
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeTextText:=i
ActiveDocument.PrintOut
Else
Ifi>=100Then
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeTextText:="0"&i
ActiveDocument.PrintOut
Else
Ifi>=10Then
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeTextText:="00"&i
ActiveDocument.PrintOut
Else
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeTextText:="000"&i
ActiveDocument.PrintOut
EndIf
EndIf
EndIf
Nextdy
EndSub
F. Access数据库自动生成订单号
可以利用asp代码生成，如果是数据库端的话，应该是不可能的，自动编号不可能中间，不生成那些数字就直接跳过的。我写了端代码，你看下吧，可以不使用自动编号，就搞定你说的功能。数据表ordertable，订单字段ordernum。ordernum设置成文本类型。 dim num,mydate,year,month,day,sql
mydate=date()
year=year(mydate)
month=year(mydate)
day=year(mydate)if month<10 then
month="0"&month
end ifif day<10 then
day="0"&day
end ifmydate=year&month&day sql="select ordernum form ordertable where ordernum like"&mydate&"% order by ordernum desc"
set rs=execute(sql)
if rs.eof or rs.bof then
num=mydate&"001"
else
num=right(rs("ordernum"),3)
num=cint(num)
if num=999 then
response.write "今日的订单号码，超越上限。此订单仍将有效，该订单号将记录为"&mydate&"1000，请管理员，尽快处理！"end if
num=num+1end if if num="001" thenresponse.write "订单超量，此订单将不能存储，请与管理员联系，管理员号码为：XXXXXXXX"
else num=mydate&"num"
sql="insert into ordertable set ordernum='"&num&"'"
execute(sql) if err thenresponse.write"订单保存出现错误，请重试！"err.clearend if
end if
G. excel自动编号问题。A为编号，B为名称，要求A从0001往下排，凡是B相同的A的序号也一样。 求公式！
按第一个图列的顺序，A2 输入1，A3输入：
=IF(COUNTIF($B$1:B2,B3)>0,INDEX($A$1:A2,MATCH($B$1:B2,$B$1:B2,0)),MAX($A$1:A2)+1)
如果反过来按第二个图列顺序的话，B2输入1，B3输入：
=IF(COUNTIF($A$1:A2,A3)>0,INDEX($B$1:B2,MATCH($A$1:A2,$A$1:A2,0)),MAX($B$1:B2)+1)