vb.net - 创建具有多个表的(循环中)数据集

Question

我需要创建几个(直到运行时我才知道有多少个)表并将每个表添加到数据集中。每个数据表需要有一个不同的名称，可以根据循环变量构建。

sub fillDataTableA(byref dt as datatable)
...  code to fill table
end sub
sub fillDataTableB(byref dt as datatable)
...  code to fill table
end sub

loop through branches
   dim dt  (name it as "branch1 A")      '  "branch#" comes from loop
  fillDataTableA(dt)
   dataset.add  (dt)          ' add this table to dataset

   dim dt  ( name it as "branch1 B")
   fillDataTableB(dt)     
   dataset.add  (dt)   ' add second table for this branch
next  (branch)

processDataSets(dataset)

因此，如果有 4 个分支，则会有 8 个表添加到数据集中。 我的问题是我不知道如何以不同的方式和动态地命名它们(表)以将其添加到数据集中。

你能看出如何解决这个问题吗？ 谢谢!

Answer 1

这足以让您开始吗？

    Dim n As Integer
    Dim ds As New DataSet

    Dim s = InputBox("Number of tables?")
    n = Integer.Parse(s)

    For i = 1 To n
        Dim t As New DataTable With {.TableName = "newtable" & i.ToString}
        ds.Tables.Add(t)
    Next