Вставка данных в DataGridView vb.net - PullRequest
0 голосов
/ 16 января 2019

Итак, сегодня утром я столкнулся со стеной:

Используя этот код, я случайно получаю еще одну строку, когда я вставляю свои данные.

Он предназначен для получения значений в диапазоне от 1 до 99999

Итак, когда я копирую это:

И вставьте его в Программу, это произойдет:

    Private Sub DataGridView101_KeyDown(sender As Object, e As KeyEventArgs) Handles DataGridView101.KeyDown

    If e.Control And
       e.KeyCode = Keys.V Then

        IsCopyPaste = True
        Dim _ClipboardRows As String() = System.Windows.Forms.Clipboard.GetText().Split({System.Environment.NewLine}, StringSplitOptions.None)


        Me.DataGridView101.BeginEdit(True)

        For Each _ClipboardRow As String In _ClipboardRows
            If _ClipboardRow <> "" Then

                Dim _CellL As String = ""
                Dim _CellR As String = ""

                For Each _ClipboardColumn As String In _ClipboardRow.Split(System.Convert.ToChar(vbTab))

                    If _CellL = "" Then
                        _CellL = _ClipboardColumn
                    Else
                        If _CellR = "" Then
                            _CellR = _ClipboardColumn
                        End If
                    End If

                Next

                Dim _DataRow As System.Data.DataRow = (CType(Me.DataGridView101.DataSource, System.Data.DataTable)).NewRow()

                _DataRow("1") = _CellL
                _DataRow("2") = _CellR

                CType(Me.DataGridView101.DataSource, System.Data.DataTable).Rows.Add(_DataRow)

            End If

        Next

        Me.DataGridView101.EndEdit()
        CType(Me.DataGridView101.DataSource, System.Data.DataTable).AcceptChanges()

        IsCopyPaste = False
    End If

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...