通过列表框统计一组记录之后将结果传递给窗体记录

popo559

1、双击左边列表框，添加商品到右边列表（并不需要记录这张列表，只是给操作员看着明白）
2、一个商品可被添加多次。比如商品AAAAA被双击了3次，在右边列表框里 要显示该商品数量为3,
3、同时计算所有商品总数以及总价格。
4、按“添加账单”键，所选商品总数以及总价录入"账目清单”，并自动将账目清单里“商品系列”赋值成“ABC系列"，保存记录。

这个功能非常实用，苦于处于初学阶段，很多关键之处解决不了，先做了个架子，请高手指点指点代码怎么写.

先谢了.

Henry D. Sy

直接追加不是更方便

[ 本帖最后由 Henry D. Sy 于 2008-11-26 17:04 编辑 ]

Henry D. Sy

你的窗体也不知道有什么错误，一打开就出错，我把他删了

重做了一个，不知道是不是你所要求的那样？？

1. Private Sub Form_Load()
   
2.     GetTotal
   
3. End Sub
   
4. 
   
5. Private Sub List0_DblClick(Cancel As Integer)
   
6. 
   
7.     Dim rs As New ADODB.Recordset
   
8.     Dim strSQL, SQL As String
   
9.     Dim lngOldQty As Long
   
10.     Dim curOldAmt As Currency
    
11. 
    
12.     strSQL = "Insert into 账单(商品系列,数量,总价)values('" & Me.List0.Column(2) & "',1," _
    
13.            & Me.List0.Column(3) & ")"
    
14.     CurrentDb.Execute strSQL              '追加记录
    
15. 
    
16.     SQL = "select * from 账单 where 商品系列='" & Me.List0.Column(2) & "' order by 编号"
    
17.     rs.Open SQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
18.     If rs.RecordCount = 2 Then
    
19.         lngOldQty = rs!数量
    
20.         curOldAmt = rs!总价
    
21.         rs.Delete                                    '合并记录
    
22.         rs.MoveNext
    
23.         rs!数量 = rs!数量 + lngOldQty
    
24.         rs!总价 = rs!总价 + curOldAmt
    
25.         rs.Update
    
26.     End If
    
27.     rs.Close
    
28.     Set rs = Nothing
    
29.     Me.List2.Requery
    
30.     GetTotal
    
31. End Sub
    
32. 
    
33. 
    
34. 
    
35. 
    
36. Sub GetTotal()
    
37.     Dim Qty As Long
    
38.     Dim Amt As Currency
    
39.     Dim I As Integer
    
40.     For I = 1 To Me.List2.ListCount - 1             '统计数据
    
41.         Qty = Qty + CLng(Me.List2.Column(2, I))
    
42.         Amt = Amt + CCur(Me.List2.Column(3, I))
    
43.     Next
    
44.     Me.Text6 = Qty
    
45.     Me.Text8 = Amt
    
46. End Sub

复制代码

[ 本帖最后由 Henry D. Sy 于 2008-11-26 17:25 编辑 ]

popo559

谢谢啦，这对新手学习来说太好了
最后一点可能我说的不是很清楚，要求是把列表框汇总出来的结果传递到账单窗体内，如图

Henry D. Sy

其实你这个list2只是显示下数据，又簿输入数据，可以用汇总查询作为他的行来源，省去了记录合并的代码。

还是按你的要求办，
1. 将list2的行来源更改为

1. SELECT 账单.编号, 账单.商品系列, 账单.数量, 账单.总价
   
2. FROM 账单
   
3. WHERE (((账单.商品系列) Not Like "abc系列"))
   
4. ORDER BY 账单.商品系列;

复制代码

2. 增加更新abc系列的代码，更改如下（其他不变）

1. Private Sub List0_DblClick(Cancel As Integer)
   
2. 
   
3.     Dim rs As New ADODB.Recordset
   
4.     Dim strSQL, SQL As String
   
5.     Dim lngOldQty As Long
   
6.     Dim curOldAmt As Currency
   
7. 
   
8.     strSQL = "Insert into 账单(商品系列,数量,总价)values('" & Me.List0.Column(2) & "',1," _
   
9.            & Me.List0.Column(3) & ")"
   
10.     CurrentDb.Execute strSQL              '追加记录
    
11. 
    
12.     SQL = "select * from 账单 where 商品系列='" & Me.List0.Column(2) & _
    
13.           "' order by 编号"
    
14.     rs.Open SQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    
15.     If rs.RecordCount = 2 Then
    
16.         lngOldQty = rs!数量
    
17.         curOldAmt = rs!总价
    
18.         rs.Delete                                    '合并记录
    
19.         rs.MoveNext
    
20.         rs!数量 = rs!数量 + lngOldQty
    
21.         rs!总价 = rs!总价 + curOldAmt
    
22.         rs.Update
    
23.     End If
    
24.     rs.Close
    
25.     Set rs = Nothing
    
26.     Me.List2.Requery
    
27.     GetTotal
    
28.     SQL = "Update 账单 set 数量=" & Me.Text6 & ",总价=" & Me.Text8 & _
    
29.         " where 商品系列='abc系列'"
    
30.     CurrentDb.Execute SQL
    
31. End Sub

复制代码

[ 本帖最后由 Henry D. Sy 于 2008-11-26 20:19 编辑 ]

popo559

按照以上方法没有实现啊，请再看看

Henry D. Sy

原帖由 popo559 于 2008-11-27 01:42 发表
按照以上方法没有实现啊，请再看看

不会吧

[ 本帖最后由 Henry D. Sy 于 2008-11-27 08:47 编辑 ]

gaofei186

看看一下

Henry D. Sy

终于明白你的意思了
你是要追加一个汇总记录，而不仅仅是更新数量和总价。对吧？
附件更新在7楼，你看看是不是你要求的那样。

cashiba

终于明白你的意思了