二维数组赋值的问题

我现在要给以个二维数组赋值 里面两个字段（货号，数量）
 循环赋值给二维数组，在赋值的时候监测货号，货号相同的吧数量加到上面去，如果发现数组里面货号没有就新增个记录


数值：
   货号       数量
   A ----------1
   B ----------1
   A ----------2
   C ----------3
需要付给数值   a（99,1）的结果是
a（0,0）      a（0,1）
  A              3
a（1,0）      a（1,1）
  B              1 
a（2,0）      a（3,1）
  C              3   

我要实现这样的一个效果，那位大侠给我写个方法谢谢…… 你这个不叫二位数组, 而是应该实用自定义数据类型数组.

Private Type Sth
Name As String
Number As Long
End Type

Dim Doods(100) As Sth
使用的时候是:
Goods(X).Name = "Disk"
Goods(X).Number = 999

引用楼主 vs5202472008 的回复:

...在赋值的时候监测货号，货号相同的吧数量加到上面去，如果发现数组里面货号没有就新增个记录

..

赋值前遍历整个数组(记录)呗,这个是程序干,你不会累到的,嘿嘿 楼上王道

补充：VB ,  基础类