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

Answer 2

这是你需要的吗？

Dim ds As New DataSet

for i as integer=0 to 9

 Dim dt As New DataTable("NameOfTable" & i.tostring)
 ds.Tables.Add(dt)

Next

使用多个表创建（循环中）数据集

2 个答案: