創建（在循環中）包含多個表的數據集

我需要創建幾個（我不知道有多少個直到運行時）表並將每個表添加到數據集。每個數據表都需要有一個不同的名稱，可以根據循環變量構建。創建（在循環中）包含多個表的數據集

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個表添加到數據集。我的問題是我不知道如何將它們（表格）以不同的方式命名並動態添加到數據集中。

你能看到如何解決這個問題嗎？謝謝！

來源

2013-02-23 user2103442

這是你所需要的？

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-23 23:41:57 Sparers

也許。循環在哪裏適合這個？這很重要，因爲每個新表都必須更改「NameOfTable」。 – user2103442 2013-02-24 00:24:03

編輯包括循環...非常類似於PeterG – Sparers 2013-02-24 22:10:27

這足以讓你開始？

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-24 01:20:11 peterG

+1我不知道你可以用{}內聯，這是一個巧妙的技巧！ – Jesse 2013-02-24 01:32:37

創建（在循環中）包含多個表的數據集

回答

相關問題