Office中国论坛/Access中国论坛

标题: 通过列表框统计一组记录之后将结果传递给窗体记录 [打印本页]
作者: popo559    时间: 2008-11-26 08:56
标题: 通过列表框统计一组记录之后将结果传递给窗体记录
1、双击左边列表框，添加商品到右边列表（并不需要记录这张列表，只是给操作员看着明白）
2、一个商品可被添加多次。比如商品AAAAA被双击了3次，在右边列表框里 要显示该商品数量为3,
3、同时计算所有商品总数以及总价格。
4、按“添加账单”键，所选商品总数以及总价录入"账目清单”，并自动将账目清单里“商品系列”赋值成“ABC系列"，保存记录。

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

先谢了.
作者: Henry D. Sy    时间: 2008-11-26 09:23
直接追加不是更方便

[ 本帖最后由 Henry D. Sy 于 2008-11-26 17:04 编辑 ]
作者: Henry D. Sy    时间: 2008-11-26 17:17
你的窗体也不知道有什么错误，一打开就出错，我把他删了

重做了一个，不知道是不是你所要求的那样？？
  1. Private Sub Form_Load()
  2.     GetTotal
  3. End Sub

  5. Private Sub List0_DblClick(Cancel As Integer)

  7.     Dim rs As New ADODB.Recordset
  8.     Dim strSQL, SQL As String
  9.     Dim lngOldQty As Long
  10.     Dim curOldAmt As Currency

  12.     strSQL = "Insert into 账单(商品系列,数量,总价)values('" & Me.List0.Column(2) & "',1," _
  13.            & Me.List0.Column(3) & ")"
  14.     CurrentDb.Execute strSQL              '追加记录

  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




  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    时间: 2008-11-26 18:51
谢谢啦，这对新手学习来说太好了
最后一点可能我说的不是很清楚，要求是把列表框汇总出来的结果传递到账单窗体内，如图
作者: Henry D. Sy    时间: 2008-11-26 20:15
其实你这个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)

  3.     Dim rs As New ADODB.Recordset
  4.     Dim strSQL, SQL As String
  5.     Dim lngOldQty As Long
  6.     Dim curOldAmt As Currency

  8.     strSQL = "Insert into 账单(商品系列,数量,总价)values('" & Me.List0.Column(2) & "',1," _
  9.            & Me.List0.Column(3) & ")"
  10.     CurrentDb.Execute strSQL              '追加记录

  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    时间: 2008-11-27 01:42
按照以上方法没有实现啊，请再看看
作者: Henry D. Sy    时间: 2008-11-27 08:11
原帖由 popo559 于 2008-11-27 01:42 发表
按照以上方法没有实现啊，请再看看


不会吧

[ 本帖最后由 Henry D. Sy 于 2008-11-27 08:47 编辑 ]
作者: gaofei186    时间: 2008-11-27 08:12
看看一下
作者: Henry D. Sy    时间: 2008-11-27 08:46
终于明白你的意思了
你是要追加一个汇总记录，而不仅仅是更新数量和总价。对吧？
附件更新在7楼，你看看是不是你要求的那样。
作者: cashiba    时间: 2008-11-27 18:14
终于明白你的意思了
作者: popo559    时间: 2008-11-30 23:58
谢谢几位， 我也用追加查询实现了，

把程序完善一点，就是右边 那个列表里面如果选错了或选多了，通过双击减掉一个商品（即数量-1，总价-1份，而不是把整个商品去掉）该怎么写.
作者: Henry D. Sy    时间: 2008-12-1 14:17
  1. Private Sub List2_DblClick(Cancel As Integer)
  2.     Dim lngA As Long
  3.     Dim strSQL As String
  4.     If Not IsNull(Me.List2) Then
  5.         lngA = Me.List2
  6.         If DLookup("数量", "账单", "编号=" & lngA) > 0 Then
  7.             strSQL = "update 账单 set 数量=数量-1,总价=总价-总价/数量 where 编号=" & lngA
  8.             CurrentDb.Execute strSQL
  9.             Me.List2.Requery
  10.             GetTotal
  11.         End If
  12.     End If
  13. End Sub
复制代码
作者: popo559    时间: 2008-12-1 18:57
多谢指点，研究一下了，直接用了删除查询。。



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3