UC知道VB6.0 数组
来源：百度知道 编辑：UC知道 时间：2024/05/18 08:32:15
Dim a() As Integer
Dim b() As Integer
Dim number As String
Dim count As String
Dim r2number As String
Dim weight As String
Dim i As Integer
count = m_BillInterface.Data("Page2").UBound '获取当前单据行数
If m_BillInterface.GetFieldValue("fbase", count, Enu_ValueType_FFND) <> "" Then count = count
If m_BillInterface.GetFieldValue("fbase", count, Enu_ValueType_FFND) = "" Then count = count - 1
ReDim a(count) As Integer
ReDim b(count) As Integer
For i = 1 To count
weight = m_BillInterface.GetFieldValue("fdecimal3", i, Enu_ValueType_FFND)
number = m_BillInterface.GetFieldValue("fbase", i, Enu_ValueType_FFND)
r2number = Right(number, 2)
a(i) = r2number
b(i) = weight
Next i
这是针对某程序开发的插件的一部分，现在我有一个疑问：
如何把b(i)按a(i)进行汇总
比如得到4组数
01 10
02 4
01 15
02 3
我想得到
01
Dim b() As Integer
Dim number As String
Dim count As String
Dim r2number As String
Dim weight As String
Dim i As Integer
count = m_BillInterface.Data("Page2").UBound '获取当前单据行数
If m_BillInterface.GetFieldValue("fbase", count, Enu_ValueType_FFND) <> "" Then count = count
If m_BillInterface.GetFieldValue("fbase", count, Enu_ValueType_FFND) = "" Then count = count - 1
ReDim a(count) As Integer
ReDim b(count) As Integer
For i = 1 To count
weight = m_BillInterface.GetFieldValue("fdecimal3", i, Enu_ValueType_FFND)
number = m_BillInterface.GetFieldValue("fbase", i, Enu_ValueType_FFND)
r2number = Right(number, 2)
a(i) = r2number
b(i) = weight
Next i
这是针对某程序开发的插件的一部分，现在我有一个疑问：
如何把b(i)按a(i)进行汇总
比如得到4组数
01 10
02 4
01 15
02 3
我想得到
01
a(i)是不是里面的01,b(i)是不是里面的02
是的话么,直接
for i = 1 to count
a_huizong= a_huizong+a(i)
b_huizong= b_huizong+b(i)
next
再输出 a_huizong b_huizong
---------------------------------------
数量不定没关系,用uBound(a)来读取数组中到底有几个元素,就是我提到的这个count