Office中国论坛/Access中国论坛

标题: (急)关于标签急于解决的问题!!!难道真没办法解决吗？ [打印本页]

作者: lgpldn 时间: 2004-10-29 19:31
标题: (急)关于标签急于解决的问题!!!难道真没办法解决吗？
我已制好的商品标签有什么办法用商品的件数来控制打出每个标签的数量？

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

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

作者: skylark 时间: 2004-11-2 03:29
标题: 回复：（lgpldn）(急)关于标签急于解决的问题!!!难道真...
To lgpldn:

这样?

__________________________

Do Our Job Well Try Anything Once

附件重传上。

[attach]7413[/attach]

[此贴子已经被作者于2004-11-1 19:48:12编辑过]

作者: 情比金坚 时间: 2004-11-2 03:39
http://www.office-cn.net/forum.php?mod=viewthread&tid=20619先说说上次为什么不行

作者: swo 时间: 2004-11-2 03:44
情比金坚妹妹已经回答了啊，并已经做了例子了，难道楼主看也没看？这可是对人的不尊重啊

作者: lgpldn 时间: 2004-11-2 18:16
我也知道情比金坚同志的办法不错，我也做好一个，只是这方法麻烦了点。

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

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

作者: Trynew 时间: 2004-11-2 21:15
[attach]7428[/attach]

可以用数量字段来做连接

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

作者: hi-wzj 时间: 2004-11-5 20:42
例子是正确的啊。

作者: lgpldn 时间: 2004-11-9 18:43
skylark同志你的程序是怎么做的。我试过了很多次都不能做出来，你能不能详细说解一下急着用。谢谢!

作者: Trynew 时间: 2004-11-9 20:00
[attach]7541[/attach]

有三个地方改动：

1、增加一个临时表Temp

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

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

作者: skylark 时间: 2004-11-10 06:31
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

作者: lgpldn 时间: 2004-11-11 01:10
skylark 你的是怎么做的，我试过了很多次都不能做出来，你能不能详细说解一下急着用。或发个EMAIL给我、

作者: lgpldn 时间: 2004-11-11 01:12
哦我看见了我会试试好看的。万分感谢!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)