请教编箱号的问题

kevindeng

看查询1

zuiyue

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

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

siliconxu

见附件

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

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

kevindeng

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

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

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为总箱数，用于初始化