标签打印信息排序

本人在做一个标签打印的数据库，我们有很多配方，配方中会指定一个核心组分，按照法规要求，该组分需要列在标签清单的最后，但是从SAP里导出的数据格式如下

我想请教下各位大师，有没有什么好的思路可以将上述表格中的核心组分复制到每个配方组分的最后，转为下面的形式

因为配方中组分的数量不一样，所以可能需要判断第一个不为空的字段

请赐教，谢谢了

zhaoyoulong 发表于：2015-12-16 16:56:40

要写个自定义函数了

发个附件上来

zhaoyoulong 发表于：2015-12-16 17:18:01

dim i as integer

dim j as long

dim rs as dao.recordset

Set rs = CurrentDb.OpenRecordset("表")

rs.movelast

rs.movefirst

for j=0 to rs.RecordCount-1

for i=1 to 5

if isnull(rs(“组分” & i).Value) and rs(“组分” & (i-1)).Value<>rs(“核心组分” ).Value then

if i<5 then rs(“组分” & (i+1)).Value=rs(“核心组分” ).Value

rs.edit

rs.update

exit for

end if

rs.movenext

莫名发表于：2015-12-16 22:19:05

非常感谢 Zhaoyoulong 的热心帮助

没有及时提供范例，抱歉啊

总记录：3篇页次：1/1 9 1 :

Access交流中心