在DataGridView中复制行

时间:2015-06-24 16:40:36

标签: vb.net datagridview datasource duplicate-data

以下代码将制表符分隔文件加载到我的DataGridView中(从数据文件中加载1条记录)。所有这一切都很完美,但是,我需要复制此记录X次。一旦行重复,我将需要最终编辑一些字段并写入添加了行的新文件。

我尝试动态添加行但是我大吼大叫说我不能因为数据已经绑定了。

建议?

    Dim file As String = "Temp.txt"
    Dim path As String = "C:\Temp\"
    Dim ds As New DataSet
    Dim tbl As New DataTable

    Try
        If IO.File.Exists(IO.Path.Combine(path, file)) Then
            Dim ConStr As String = _
            "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
            path & ";Extended Properties=""Text;HDR=No;FMT=TabDelimited\"""
            Dim conn As New OleDb.OleDbConnection(ConStr)
            Dim da As New OleDb.OleDbDataAdapter("Select * from " & _
            file, conn)
            da.Fill(ds, "TextFile")
        End If
    Catch ex As Exception
        MessageBox.Show(ex.ToString)
    End Try

    DataGridView1.DataSource = ds.Tables(0)

2 个答案:

答案 0 :(得分:1)

您无法直接添加到数据绑定的DataGridView,因为数据位于其他位置,而DGV只是显示其中的内容。要向DataTable添加行:

Dim dr = ds.Tables(0).NewRow()

这将创建一个新行,其中包含基于表定义的列。将新项目的数据添加到其中,然后将其添加到表中:

dr.Item(0) = "something"   ' add to column one
... etc
ds.Tables(0)Rows.Add(dr)

到目前为止,你真的不需要为你所拥有的东西创建一个DataSet。替代方法:

Private myDT As New DataTable      
...
da.Fill(myDT)

直接克隆一行的数据:

Dim dr As DataRow

For n As Integer = 0 To NumberOfDuplicates
    dr = myDT.NewRow              ' new DataRow
    For c As Integer = 0 To myDT.Columns.Count - 1   ' copy data from 0 to NewRow
        dr.Item(c) = myDT.Rows(0).Item(c)
    Next
    myDT.Rows.Add(dr)            ' add NewRow to datatable
Next n

请注意,您需要为每个克隆创建一个新行,内部循环将数据从行(0)复制到每个新行。

答案 1 :(得分:0)

'Hope This helps DGV1 is the datagridview
'To copy Row
Private Sub CopyButton_Click(sender As System.Object, e As System.EventArgs) Handles CopyButton.Click
    CopyRowIndex = DGV1.CurrentRow.Index
End Sub

'To Paste Row
Private Sub PasteButton_Click(sender As System.Object, e As System.EventArgs) Handles PasteButton.Click
    PasteRowIndex = DGV1.CurrentRow.Index
    For index As Int32 = 0 To DGV1.ColumnCount - 1
        DGV1.Rows(CInt(PasteRowIndex)).Cells(index).Value = DGV1.Rows(CInt(CopyRowIndex)).Cells(index).Value
    Next

End Sub

'To Duplicate Rows
Private Sub DuplicateButton_Click(sender As System.Object, e As System.EventArgs) Handles DuplicateButton.Click
    CopyRowIndex = DGV1.CurrentRow.Index
    DGV1.Rows.Add()
    DuplicateRowIndex = DGV1.Rows.Count - 1
    For index As Int32 = 0 To DGV1.ColumnCount - 1
        DGV1.Rows(CInt(DuplicateRowIndex)).Cells(index).Value = DGV1.Rows(CInt(CopyRowIndex)).Cells(index).Value
    Next
End Sub