vb编程如何实现数据中指定行的数据相加？

来源：百度知道 编辑：UC知道 时间：2024/06/07 01:35:58
vb编程实现查询数据库中的固定列第三列，读出其中的数据，让第1行与第12行与第23行与34行的数据相加，然后计算第2行与第13行与第24行与35行相加，。。。依次类推，直到计算到第11行与第22行与33行与44行相加为止，然后将计算后得到的11个数据值显示在vb的form窗体中 （数据库中已经录入有数据） 要求给出代码和具体实例

Private Sub Command1_Click()
Dim a(10) As Long
rs.MoveFirst
Do While Not (rs.EOF)
a((rs.AbsolutePosition - 1) Mod 11) = a((rs.AbsolutePosition - 1) Mod 11) + rs.Fields(2)
rs.MoveNext
Loop
For i = 0 To 10
Print a(i),
Next i
End Sub

dim j as string
dim p as string
dim h as long
adodc1.RecordSource = "select * from tb where 主键='" + text1.text + "')
adodc1.refresh
j=adodc1.recordset.fields("数字")
adodc1.RecordSource = "select * from tb where 主键='" + text2.text + "')
adodc1.refresh
p=adodc1.recordset.fields("数字")
h=val(j)+val(p)
修改一下，在加点就能用了！