循环遍历数据集并在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即可。您可以 循环完成后立即更新所有内容。