VB.NET

VB.NET RSS

query

Please support our VB.NET advertiser: Intel Parallel Studio Home

•

Join Date: Dec 2008

Posts: 39

Reputation: arunasingh is an unknown quantity at this point

Solved Threads: 0

arunasingh arunasingh is offline

Offline

Light Poster

query

Apr 28th, 2009

i am developing windows application project

i want that in a datagridview if there is data in the first row ,then i want that if i enter then that above row is copied as next row below the first row.so how i do code in enter of any cell in data gridview and generate next row

•

Join Date: Nov 2008

Posts: 63

Reputation: 4advanced is an unknown quantity at this point

Solved Threads: 10

4advanced

Offline

Junior Poster in Training

Re: query

Apr 28th, 2009

Try this

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
      Private Sub DataGridView1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp
        If Keys.Enter Then
            Dim _Dt As DataTable = Me.DataGridView1.DataSource
            If _Dt IsNot Nothing Then
                Dim _NewRow As System.Data.DataRow = _Dt.NewRow
                _Dt.Rows.Add(_NewRow)
                Me.DataGridView1.DataSource = _Dt
 
                _NewRow = Nothing
                _Dt.Dispose()
                _Dt = Nothing
 
            End If
 
        End If
    End Sub
      Private Sub DataGridView1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyUp
        If Keys.Enter Then
            Dim _Dt As DataTable = Me.DataGridView1.DataSource
            If _Dt IsNot Nothing Then
                Dim _NewRow As System.Data.DataRow = _Dt.NewRow
                _Dt.Rows.Add(_NewRow)
                Me.DataGridView1.DataSource = _Dt

                _NewRow = Nothing
                _Dt.Dispose()
                _Dt = Nothing

            End If

        End If
    End Sub