2

いくつかのテーブルを作成し (実行時までいくつかわからない)、それぞれをデータセットに追加する必要があります。各データテーブルには、ループ変数に基づいて作成できる別の名前が必要です。

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 つのテーブルが追加されます。私の問題は、それら (テーブル) に別の名前を付けて動的にデータセットに追加する方法がわからないことです。

これを修正する方法がわかりますか？ありがとう！

4

2 に答える 2

2

これで始められますか？

    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
于 2013-02-24T01:20:11.287 に答える
0

これはあなたが必要なものですか？

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
于 2013-02-23T23:41:57.333 に答える