前几天的【vb6.0（汗）】的帖子的补充-优快云博客

本文链接：https://blog.youkuaiyun.com/acelljy/article/details/5648316

本文介绍了一个VB6.0中关于集合和循环的问题解决方案。通过正确的实例化对象并调整代码逻辑，实现了对销售交易明细进行分组和金额汇总的功能。作者分享了完整的代码实现，并解释了关键步骤。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

下面是我的vb6.0（汗）的帖子

http://topic.youkuaiyun.com/u/20100526/13/59c64bb8-5706-4d3a-a6a3-c904d118fe42.html
由于自己盲目结贴，实际问题没解决，一直心里惴惴不安，到书店跑了两次，将vb的基础中循环，集合，对象的内容温习了下，将问题算真的解决了，现在将调整说明如下

将Class_Initialize() 中的
Set cesa = New CSCtr_gp_Amt 放在合并相同第一个属性的项的相应位置，
这主要是由于，每次在新集合中增加项的时候当然需要新建一个CSCtr_gp_Amt的对象，才能保持值的对应，不然就是在集合中增加了n个相同的cesa了
并对一些细节做了些调整，比如比较数字字符串的方法等

这个问题算真的解决了……
附完整代码，有兴趣的童鞋可以比较下
Option Explicit Public Actr_gp As New Collection Public ctrsctr As CSCtr_gp_Amt2 Dim c As Integer Dim k As Integer Dim j As Integer Dim ces As CSCtr_gp_Amt Dim cesa As CSCtr_gp_Amt Private Sub Class_Initialize() On Error GoTo codeError Set Actr_gp = New Collection Call Allctr_amt '这里就是初始化该类是定义的内容已经计算了 Exit Sub codeError: POS.Common.ShowMessage Err.Description, Err.Number End Sub Public Sub AddctrDtls(ByVal cs As CSCtr_gp_Amt) '输入保存 Actr_gp.Add cs End Sub Public Property Get Allctr_gp(ByVal Index As Integer) As CSCtr_gp_Amt If Actr_gp Is Nothing Then Set Allctr_gp = Nothing Else If Actr_gp.Count > 0 Then Set Allctr_gp = Actr_gp(Index) Else Set Allctr_gp = Nothing End If End If End Property Public Property Get Allctr_gpCount() As Integer If Actr_gp Is Nothing Then Allctr_gpCount = 0 Else Allctr_gpCount = Actr_gp.Count End If End Property Private Sub InitCs() On Error GoTo codeError Set cesa = New CSCtr_gp_Amt Exit Sub codeError: POS.Common.ShowMessage Err.Description, Err.Number End Sub Public Sub Allctr_gpb() For c = 1 To POS.Sales.TrnHdr.TrnDtlsCount k = 1 For Each ces In Actr_gp If Val(POS.Sales.TrnHdr.TrnDtls(c).TDCtr_Gp_Code) = Val(ces.SCtr_Gp_Code) Then k = k + 1 End If Next If k = 1 Then Call InitCs cesa.SCtr_Gp_Code = POS.Sales.TrnHdr.TrnDtls(c).TDCtr_Gp_Code cesa.CurCtr_Amt = 0 Me.AddctrDtls cesa End If Next End Sub Public Sub Allctr_amt() Call Allctr_gpb Dim i As Integer Dim j As Integer For i = 1 To Allctr_gpCount For j = 1 To POS.Sales.TrnHdr.TrnDtlsCount If Val(POS.Sales.TrnHdr.TrnDtls(j).TDCtr_Gp_Code) = Val(Allctr_gp(i).SCtr_Gp_Code) Then Me.Allctr_gp(i).CurCtr_Amt = Me.Allctr_gp(i).CurCtr_Amt + POS.Sales.TrnHdr.TrnDtls(j).TDSub_Total Else End If Next Next End Sub