如何刪除動態創建的datagridview vb.net中的行

Question

我正在嘗試刪除將動態創建的DataGridView中的行，我使用了此代碼，但是它不起作用（dgv不是...的成員）

datagridviews創建如下：

If ComboBox1.Text = "Excel" Then
        Static Dim cmd As String
        Using fold As New OpenFileDialog
            fold.Filter = "sheet files (*.xls)|*.xls|All files (*.*)|*.*"
            fold.Title = "Select file"
            If fold.ShowDialog() = Windows.Forms.DialogResult.OK Then
                fold.RestoreDirectory = True
                cmd = fold.FileName
            End If
        End Using
        Try
            Static Dim MyConnection As System.Data.OleDb.OleDbConnection
            Dim Dataset As System.Data.DataSet
            Static Dim MyCommand As System.Data.OleDb.OleDbDataAdapter
            Dim shlist As ArrayList = getExcelSheetsName(cmd)
            MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & cmd & ";Extended Properties=Excel 8.0;")
            For i As Long = 0 To shlist.Count() - 1
                Dim myTabPage As New TabPage()
                Dim dgv As DataGridView = New DataGridView()
                myTabPage.Text = shlist(i) & (TabControl1.TabPages.Count + 1)
                TabControl1.TabPages.Add(myTabPage)
                myTabPage.Controls.Add(dgv)
                dgv.Dock = DockStyle.Fill
                dgv.AutoSizeColumnsModeDataGridViewAutoSizeColumnsMode.Fill
                MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [" & shlist(i) & "$]", MyConnection)
                Dataset = New System.Data.DataSet
                MyCommand.Fill(Dataset)
                dgv.DataSource = Dataset.Tables(0)
                MyConnection.Close()
            Next

        Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try

    End If

刪除按鈕的代碼是：

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    For Each row As DataGridViewRow In TabControl1.SelectedTab.datagridview.SelectedRows
        DataGridView.Rows.Remove(row)
    Next
End Sub

任何幫助將不勝感激...謝謝

Answer 1

當然你不能使用TabControl1.SelectedTab.datagridview因為datagridview不是TabPage的成員，而是你可以使用TabPage Controls集合找到網格：

Dim grid = DirectCast(Me.TabControl1.SelectedTab.Controls(0), DataGridView)
If (grid IsNot Nothing) Then
    For Each dr As DataGridViewRow In grid.SelectedRows
        If (Not dr.IsNewRow) Then
            grid.Rows.Remove(dr)
        End If
    Next
End If