请教编箱号的问题

zuiyue

各位大虾：
请问以下编箱号是怎样做的？我要的是编箱号栏是自动生成的，分两栏也可以。

货号	箱数	编箱号
WWW-5689	5	1-5
WWW-5690	15	6-20
WWW-5691	10	21-30
WWW-5692	30	31-60
WWW-5693	100	61-160

......
谢谢了！

[ 本帖最后由 zuiyue 于 2008-8-4 14:12 编辑 ]

zhouyunliang

定义一个自定义函数放在模块中
private sTotal as long
public function GetXH(byvar xs as long,TotalXS as long) as string
if stotal=0 or stotal>=totalxs then stotal=1
stotal=stotal+xh
getxh=stotal-xh & "-" & stotal
end function
xs为当前记录箱数，TotalXS为总箱数，用于初始化

kevindeng

SELECT 表1.货号, 表1.箱数, (DSum("箱数","表1","[货号]<='" & [货号] & "'")-[表1]![箱数]+1) & "-" & DSum("箱数","表1","[货号]<='" & [货号] & "'") AS 编箱号
FROM 表1;

最后的那个应该是61-160吧

siliconxu

见附件

Sorry, 用了Excel了……因为我觉得你这个用Excel好像更适合一点……

[ 本帖最后由 siliconxu 于 2008-8-4 13:14 编辑 ]

zuiyue

感谢！
我是想在ACCESS中做好编号，哪位大虾可以给个实例？谢谢！

[ 本帖最后由 zuiyue 于 2008-8-4 14:11 编辑 ]

kevindeng

看查询1

zuiyue

谢谢！我做来看看。复杂点的可能我搞不懂。

zuiyue

kevindeng:
你好！
你给出的很好，谢谢！
你是用“货号”加进去的，如果货号好像下面不是按顺序排列的话，是否还可以自动生成“箱号”？
如果加多一栏序号的话，是否可以？
我是才学ACCESS的，很多不懂，但为了减轻工作量，才用ACCESS的。
请大虾给再写一个附件，叩谢了！

序号	货号	箱数	编箱号
01	WWW-5689	5	1-5
02	CWE-2354	15	6-20
03	ABF-3561	10	21-30
04	WSA-5356	30	31-60
05	ASS-7854	100	61-160

kevindeng

加个ID号,ID为自动编号就可以了,查询改成
SELECT 表1.ID, 表1.货号, 表1.箱数, (DSum("箱数","表1","[ID]<=" & [ID])-[表1]![箱数]+1) & "-" & DSum("箱数","表1","[ID]<=" & [ID]) AS 编箱号
FROM 表1;

zuiyue

请问kevindeng:
如果箱数是用查询计算出来的可以吗？
（箱数=数量/装量）
叩谢！