winforms DataGridView如何在VB.NET中填充事件后保持选定行的位置

63lcw9qa 于 2023-10-23 发布在 .NET

关注(0)|答案(1)|浏览(139)

DataGridView如何在VB.NET中填充事件后保持选定行的位置。
我想在不使用bindingsource的情况下是否可以应用请指导。
对于数据库信息，该表没有ID，但有4列主键，即：CODEPRODUCT、BARCODE、COLORCODE、SIZE
谢谢

Private WithEvents dt As New DataTable
  Dim dataAdapter As OleDbDataAdapter
  Dim GetConnectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\demo.accdb;Persist Security Info=False;"
    Private Sub population()
        Try
            dt = New DataTable
            Dim query As String = "SELECT * from stocks"
            Using con As OleDbConnection = New OleDbConnection(GetConnectionString)
                Using cmd As OleDbCommand = New OleDbCommand(query, con)
                    Using da As New OleDbDataAdapter(cmd)
                        'Dim dt As DataTable = New DataTable()
                        da.Fill(dt)
                        da.Dispose()
                        DataGridView1.DataSource = dt
                        Me.DataGridView1.Refresh()
                    End Using
                End Using
            End Using
        Catch ex As Exception
        End Try
    End Sub
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.DataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        Me.DataGridView1.MultiSelect = False
        population()
    End Sub
  Private Sub Btnrefresh_Click(sender As Object, e As EventArgs) Handles Btnrefresh.Click
        population()
    End Sub

结果在datagridview 19082023中

winforms

来源：https://stackoverflow.com/questions/76933355/how-a-datagridview-keeps-the-position-of-a-selected-row-after-event-population-i

1条答案

按热度按时间

z8dt9xmd1#

我们感谢他们为我们提供了最好的解决方案
根据@RezaAghaei的解决方案，这里是a link！
根据@R.Akhlaghi的解决方案，这里是a link！
我尝试了他们的代码组合，终于得到了解决方案。

Private pk1 As String
    Private pk2 As String
    Private pk3 As String
    Private pk4 As String
    Private rowIndex, scrollIndex As Integer
    Private IsSelectedRow As Boolean
  Private Sub Btnrefresh_Click(sender As Object, e As EventArgs) Handles Btnrefresh.Click
        Dim currentIndex As Integer = DataGridView1.CurrentRow.Index
        pk1 = DataGridView1.SelectedRows(0).Cells(0).Value
                pk2 = DataGridView1.SelectedRows(0).Cells(1).Value
                pk3 = DataGridView1.SelectedRows(0).Cells(2).Value
                pk4 = DataGridView1.SelectedRows(0).Cells(3).Value
                scrollIndex = DataGridView1.FirstDisplayedScrollingRowIndex
        IsSelectedRow = True
        population()
        Me.DataGridView1.CurrentCell = Me.DataGridView1.Rows(currentIndex).Cells(0)
    End Sub
    Private Sub DataGridView1_DataBindingComplete(sender As Object, e As DataGridViewBindingCompleteEventArgs) Handles DataGridView1.DataBindingComplete
        If IsSelectedRow Then
            For Each row As DataGridViewRow In DataGridView1.Rows
If row.Cells(0).Value.ToString().Equals(pk1.ToString()) AndAlso row.Cells(1).Value.ToString().Equals(pk2.ToString()) AndAlso row.Cells(2).Value.ToString().Equals(pk3.ToString()) AndAlso row.Cells(3).Value.ToString().Equals(pk4.ToString()) Then
                    rowIndex = row.Index
                    Exit For
                End If
            Next row
            DataGridView1.Rows(rowIndex).Selected = True
        End If
    End Sub

赞(0）回复(0）举报 2023-10-23

我来回答

winforms DataGridView如何在VB.NET中填充事件后保持选定行的位置

1条答案

相关问题

热门标签

最新问答