Vb.net 在vb中填充每个tabpages克隆中的每个datagridview

我有一个带有datagridview的克隆选项卡页。 我厌倦了在每个tabpage中填充datagridview，因为它只在tabpage1中填充

这是我的“克隆”选项卡和按钮的代码：

Private Sub NewTab_Click(sender As Object, e As EventArgs) Handles NewTab.Click
    Dim Frm As New NewTabPage
    Dim MoreTabs As TabPage = Frm.TabPage1
    Dim i As Integer ' = 1
    For i = 1 To TabControl1.TabPages.Count
        MoreTabs.Text = "TabPage" & i + 1
    Next i
    TabControl1.Controls.Add(MoreTabs)
    Frm.Dispose()
End Sub

这是我用backgroundworker填充datagridview的代码：

Private Sub BackgroundWorker1_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
    MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + FPathTab + ";Extended Properties=Excel 12.0;")
    MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [" & CSheetTab1 & "]'", MyConnection)
    DtSet = New System.Data.DataSet
    DtSet.Clear()
    MyCommand.Fill(DtSet)
End Sub
Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    Me.TabControl1.TabPages(TabControl1.SelectedIndex).Text = Trim("Asset" & CTabName & " 20" & CTabName1)
    Me.DataGridView1.DataSource = DtSet.Tables(0)
    dv = DtSet.Tables(0).DefaultView
End Sub

---

请帮助，如何为每个tabpages用不同的数据填充datagridview？

请以可能看到此问题的人的身份重新阅读您的问题，并思考，此处缺少什么使其成为有用的问题？我不知道你的问题是什么，你打算做什么，我们也不知道你如何称呼幕后工作者。另外，您在NewTab_单击中的命名可读性不强。在这一点上，我不知道如何在其他选项卡页面上填充datagridview。