(急)关于标签急于解决的问题!!!难道真没办法解决吗？

lgpldn

我已制好的商品标签有什么办法用商品的件数来控制打出每个标签的数量？

比如：A商品有5件，B商品有1件，就出A商品的标签5个,B商品的标签1个。

[此贴子已经被作者于2004-10-30 21:36:27编辑过]

lgpldn

哦 我看见了我会试试好看的。万分感谢!

lgpldn

skylark 你的是怎么做的，我试过了很多次都不能做出来，你能不能详细说解一下急着用。或发个EMAIL给我、

skylark

To lgpldn:

我的做法和版主的一样，只是临时表"Order"隐藏了.

加了“模块1“处理Order表，打开报表会调用模块1的程式运行。

报表数据源联合了Order表,用了ADO ，做法没有版主的简洁。版主的程式我在学习时改了一下，

也贴上：

Sub MyData3()

Dim rst As DAO.Recordset, i As Integer, j As Integer

Dim Rst1 As DAO.Recordset

Dim k%, stSQL$

stSQL = "select max(订单.件数) as Total1 from [订单]"

Set Rst1 = CurrentDb().OpenRecordset(stSQL, dbOpenForwardOnly, dbReadOnly)

k = Rst1!Total1

CurrentDb().Execute "delete * from [num]"

Set rst = CurrentDb().OpenRecordset("Num")

For i = 1 To k

    For j = 1 To i

        rst.AddNew

        rst!num = i

        rst.Update

    Next

Next

End Sub

Trynew

有三个地方改动：

1、增加一个临时表Temp

2、数据查询里添加临时表，并与数量字段链接

3、增加报表打开事件，清空临时表，再根据数量字段汇总后每个数字生成相同条数的记录（用到DAO,要加上其引用）

lgpldn

skylark同志你的程序是怎么做的。我试过了很多次都不能做出来，你能不能详细说解一下急着用。谢谢!

hi-wzj

例子是正确的啊。

lgpldn

对唔住TryenW!前几日去了出差，今天才有机会上网回复!我也看了你做标签好像数目不对哦1号应该是1件的现在好像是出的6个你有时间就看一下!谢谢啦!

Trynew

可以用数量字段来做连接

lgpldn

我也知道情比金坚同志的办法不错，我也做好一个，只是这方法麻烦了点。

还是skylark的方法干脆直接，谢谢两位，谢谢!

[此贴子已经被作者于2004-11-2 10:27:14编辑过]