Question

VB6.0 怎么实现自动生成编号？

我在添加数据是要自动生成一个编号（我使用的是Asscess2000数据库，使用了Adodc1 DTPicker1等基本控件）
格式：XXX-XXX-XXX
第一个XXX是部门缩写，在我的数据表type中
第二个XXX是根据DTPicker1所选的时间至2007-1-1的第XXX周（初始时间是2007年1月1日（星期一），如DTPicker1选择2007-1-1，则XXX=001；2007-2-8，则XXX=002依次类推。
第三个XXX是从001开始的自动编号
（001 002 003 004 。。。。。。）每添加一条自动+1
请问高手、大虾、神人们如何实现？谢谢了
生成在一个文本框Text1即可
可是我不知道第二个XXX怎么实现
如DTPicker1选择2007-1-1，则XXX=001；2007-1-8，则XXX=002依次类推。 （上面写错了，不好意思）2007-1-15，则XXX=003，2007-1-22，则XXX=004，依次类推。
每个部门的第三个XXX都是从001开始排的。

Answer 1

其实很简单： 在数据库中设置编号的那个为自动编号， 然后添加的时候直接把值附加在后面就可以了，这个编号的这个值不用赋值，他自动会添加的。

Answer 2

dim counter as integer'定义一个全局变量，就是放到程序的最前面，不要放到sub块里面

Private Sub Command1_Click()
counter =counter +1
Text1.Text = Adodc1.Recordset("type") & "-" & Format((Year(DTPicker1.Value) - 2007) * 12 + Month(DTPicker1.Value), "000") &Format(counter,"000")
end sub

Answer 3

i don't know