在Visual Basic中循环遍历数据集并将数据存储在数组中

Question

我正在尝试将所有组加载到Array然后遍历这些组并查看每个代理有多少资产（如果资产多于代理，而不是将它们移动到我们的虚拟组0中。）但是我对此DataSet和TableAdapator 。

基本上是组-代理-资产

0--0--10
1--3--3
2--3--5
3--10--15

所以第2组有2个额外的资产，我想将它们移到我们的空组0

请指导

Dim rs, lines
rs = cn.Execute("select grp from tskmsgrp where listid = 0;")

Dim da As New System.Data.OleDb.OleDbDataAdapter()
Dim da_line As New System.Data.OleDb.OleDbDataAdapter()
Dim ds As New DataSet()
da.Fill(ds, rs, "grp")

MsgBox("There are  total products." & ds.Tables(0).Rows.Count.ToString)
For Each a As DataRow In ds.Tables(0).Rows
    lines = cn.Execute("select count(*) from tsklines where grp ='" & a(0) & "';")
    Dim ds_lines As New DataSet()
    da_line.Fill(ds_lines, lines, "lines")
    MsgBox("Lines for group." & a(0) & " -- " & ds_lines.Tables(0).Rows.Count.ToString)
Next

Answer 1

有两点-您可以确定细节。

1. 您不需要循环内的select语句，因为您可以访问a行中的数据。
2. 您无需再次填充数据集，只需更新ds。 循环完成后，您可以立即更新所有内容。