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

popo559

谢谢几位， 我也用追加查询实现了，

把程序完善一点，就是右边 那个列表里面如果选错了或选多了，通过双击减掉一个商品（即数量-1，总价-1份，而不是把整个商品去掉）该怎么写.

Henry D. Sy

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

多谢指点，研究一下了，直接用了删除查询。。