VB.NET DataGridView1 用點選的方式複製到 DataGridView3- 藍色小舖 BlueShop

台灣最大程式設計社群網站

∣免費加入會員∣登入 ∣回首頁∣ 您好

線上人數
977

會員總數：243984
討論主題：188418

登入

登出

歡迎您免費加入會員

討論區選單

開發工具

行動裝置開發

資料庫

多媒體 / 網管

綜合

文章區

討論區列表 >> VB.NET >> VB.NET DataGridView1 用點選的方式複製到 DataGridView3

[]

[我要回覆]

VB.NET DataGridView1 用點選的方式複製到 DataGridView3
價值 : 50 QP 點閱數:229 回應數:2

樓主

0	6
170	32

發送站內信

Imports excel = Microsoft.Office.Interop.Excel
Imports System.IO
Imports System.Text
Imports System.Data.SqlClient
Imports System.Globalization

Public Class Form1
    Dim xlapp As New excel.Application
    Dim xlworkbook As excel.Workbook
    Dim xlworksheet As excel.Worksheet
    Private resourceCulture As Global.System.Globalization.CultureInfo
    Dim myDatatable1 As New DataTable '新加'
    Dim myDatatable2 As New DataTable '新加'

Private Sub FileSystemWatcher1_Created(sender As Object, e As FileSystemEventArgs) Handles FileSystemWatcher1.Created
        Try

Dim MyConnection As System.Data.OleDb.OleDbConnection
            Dim dataSet As System.Data.DataSet
            Dim MyCommand As System.Data.OleDb.OleDbDataAdapter

DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect  '新加'
            DataGridView3.SelectionMode = DataGridViewSelectionMode.FullRowSelect '新加'

MyConnection = New System.Data.OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + e.FullPath + ";Extended Properties=Excel 12.0;")
            MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [工作表1$]", MyConnection)

dataSet = New System.Data.DataSet
            MyCommand.Fill(dataSet)

myDatatable1 = dataSet.Tables(0)   '新加'

DataGridView1.DataSource = myDatatable1    '新加'
            DataGridView3.DataSource = myDatatable2      '新加'

myDatatable2 = myDatatable1.Clone '新加'

MyConnection.Close()

Catch ex As Exception
            MsgBox(ex.Message.ToString)
        End Try
    End Sub
    Public Class CSRowCopy
        Public Shared Sub RowCopyAll(ByRef DGVFrom As DataGridView, ByRef DGVto As DataGridView)
            For Each DGVRow As DataGridViewRow In DGVFrom.Rows
                Dim myNewRow As DataRow = CType(DGVto.DataSource, DataTable).NewRow
                myNewRow.ItemArray = CType(DGVRow.DataBoundItem, System.Data.DataRowView).Row.ItemArray()
                CType(DGVto.DataSource, DataTable).Rows.Add(myNewRow)
            Next
        End Sub

Public Shared Sub RowCopy01(ByRef DGVFrom As DataGridView, ByRef DGVto As DataGridView)
            For Each DGVRow As DataGridViewRow In DGVFrom.SelectedRows
                Dim myNewRow As DataRow = CType(DGVto.DataSource, DataTable).NewRow
                myNewRow.ItemArray = CType(DGVRow.DataBoundItem, System.Data.DataRowView).Row.ItemArray()
                CType(DGVto.DataSource, DataTable).Rows.Add(myNewRow)
            Next
        End Sub
        
    End Class
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        CSRowCopy.RowCopy01(DataGridView1, DataGridView3)
    End Sub

想請我監控資料夾當excel檔案進入資料夾時會顯示DataGridView1 之後再畫面上面做選擇複製到DataGridView3上面但有錯誤
錯誤: 這一行 myNewRow.ItemArray = CType(DGVRow.DataBoundItem, System.Data.DataRowView).Row.ItemArray()
輸入陣列的長度大於這個資料表中的資料行數目。
可以請教大大嗎感謝

搜尋相關Tags的文章： [ DataGridView ] , [ VB ] ,
本篇文章發表於2018-10-24 13:44


別忘捐VP感謝幫助你的人	新手會員瞧一瞧

1樓

最有價值解答

誰是誰

上面這四行改成以下試試，理論上應該是先clone datatbale 再指派給 DataGridView

本篇文章回覆於2018-10-25 23:21

== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--

2樓

作者回應

感謝大大以解決問題

本篇文章回覆於2018-10-26 11:40

== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--

回覆

如要回應,請先登入.