Hi Good People I have a Data Grid View, And when the Form Loads The Data Grid View is Populated with all the records I have in my database. I have created a search which shows only the data I am Looking for. I also have Labels corresponding to the Data. Now my Issue is, When I click A row in the Data Grid View. I want to put the value of each Data Grid View Columns into the corresponding Labels. Does Any of you good people know if this can be achieved. I have tried different way to no avail Kind Regards Gary Private Sub DGVPaymentReceived_RowEnter(sender As Object, e As DataGridViewCellEventArgs) Handles DGVPaymentReceived.RowEnter End Sub

With A Data Grid View and Row enter

Accepted answer

LesHay 7,126

If you really want to use the RowEnter event, then a completely different approach is needed.

Here is a stand alone example that may be of use to you. The area that you ask about is where I have the Label1.DayaBindings ....... (4 labels shown). If you want to try this example out then: A new Project, add a DataGridView named 'DGV', a ComboBox named 'CB', Label1, Label2, Label3 and Label4. Copy/Replace the Form1 code with this code.

NOTE: the ComboBox is just there to show you the advantage of using the data in this way.

111

' Form1 with DataGridView named 'DGV',
' ComboBox named 'CB', Label1, Label2,
' Label3 and Label4
Option Strict On
Option Explicit On
Public Class Form1
  Dim dt As New DataTable
  Dim BS As New BindingSource
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    With dt
      .Columns.Add("code", GetType(String))
      .Columns.Add("First Name", GetType(String))
      .Columns.Add("Last Name", GetType(String))
      .Columns.Add("Account#", GetType(String))

      ' some dummyn data
      .Rows.Add("AZ23BY675", "Les", "Hay", "WX33861A")
      .Rows.Add("PQ7ZXT368", "Hossam", "Smith", "KK449834Z")
      .Rows.Add("WWP988GTW", "Some", "body", "HP451187D")
      .Rows.Add("SK59UGG", "Else", "Here", "FR9885465W")
    End With
    BS.DataSource = dt
    DGV.DataSource = BS

    With CB
      .DataSource = BS
      .DisplayMember = "Code"
      .ValueMember = "Account#"
      .DropDownStyle = ComboBoxStyle.DropDown
      .AutoCompleteMode = AutoCompleteMode.SuggestAppend
      .AutoCompleteSource = AutoCompleteSource.ListItems
    End With

    Label1.DataBindings.Add("Text", BS, "Code")
    Label2.DataBindings.Add("Text", BS, "First Name")
    Label3.DataBindings.Add("Text", BS, "Last Name")
    Label4.DataBindings.Add("Text", BS, "Account#")
  End Sub
End Class

Gary Simpson 471 Reputation points

2023-03-31T13:15:54.52+00:00

Hi LesHay.

Thank you for getting back to me. With your first Line in your answer "If you really want to use the RowEnter event, then a completely different approach is needed."

This Makes me think, if this is the Right way to go.

Have you got a better way? or suggestion on how I go about getting Data from the Data Grid View into Labels

Regards Gary
LesHay 7,126 Reputation points

2023-03-31T14:41:50.29+00:00

Hi Gary

The code I posted does just that. If you try the example (as a new test project), then you will see the connection between the data and the Labels - just select a different item from either the ComboBox or the DataGridView and the appropriate data is autocompleted in the Labels.

Just to clarify: I don't have your data so certain items have been used just to illustrate the principles. The dummy random data I have used is added to the DataTable at run time where in your case, you have loaded the data from a DataBase. The only real difference is that you would need to use your DataTable as the DataSource for the Labels instead of the DataTable I show.

LesHay 7,126

I also read that you are using a search of some kind. If you need a simple way to find items across a whole DataGridView (well, the DataSource of the DataGridView actually) then here is an example. Adding these 2 Subs and a TextBox1 to the Form, then as you type into the TextBox, the DataGridView will show only those rows where the Cell contents contain the search term in any Column. It is an excellent way to find items in a complex set of data. There would be other considerations depending on your data types, but here, just using strings in the datatable.

  ' ======= add these 2 subs to filter DGV
  ' on all columns with search string in
  ' TextBox1 =========
  Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
    Dim filt As String = "[Code] Like '*" & TextBox1.Text & "*' or [First Name] Like '*" & TextBox1.Text & "*'  or [Last Name] Like '*" & TextBox1.Text & "*' or [Account#] Like '*" & TextBox1.Text & "*'"
    Try
      dt.DefaultView.RowFilter = filt.ToString
    Catch ex As Exception
      Stop
    End Try
  End Sub
  Private Sub DGV_DataError(sender As Object, e As DataGridViewDataErrorEventArgs) Handles DGV.DataError
    If e.Exception.Message = "Index 0 does not have a value." Then
      e.Cancel = True
      Exit Sub
    End If
  End Sub

Gary Simpson 471

Hi LesHay.

The Codes That I have tried but either nothing works or I get an Error.


 Dim bs As New BindingSource
    Dim dt As New DataTable
    Private Sub DGVPaymentReceived_Click(sender As Object, e As EventArgs) Handles DGVPaymentReceived.Click

        bs.DataSource = dt

        DGVPaymentReceived.DataSource = dt

        LbPaymentReceivedID.DataBindings.Add("Text", bs, "PaymentReceivedID")
        LbCustomerName.DataBindings.Add("Text", bs, "CustomerName")
        LbNameOrNumber.DataBindings.Add("Text", bs, "NameOrNumber")
        LbRoadName.DataBindings.Add("Text", bs, "RoadName")
        LbTown.DataBindings.Add("Text", bs, "Town")
        LbCounty.DataBindings.Add("Text", bs, "County")
        LbPostcode.DataBindings.Add("Text", bs, "Postcode")

    End Sub

    Private Sub DGVPaymentReceived_RowEnter(sender As Object, e As DataGridViewCellEventArgs) Handles DGVPaymentReceived.RowEnter
        'SQL.ExecQuery("SELECT * FROM PaymentReceived ")

        'I have Tried This================================================= 

        'LbPaymentReceivedID.Text = SQL.SQLBS("PaymentReceivedID")
        'LbCustomerName.Text = SQL.SQLBS("CustomerName")
        'LbNameOrNumber.Text = SQL.SQLBS("NameOrNumber")
        'LbRoadName.Text = SQL.SQLBS("RoadName")
        'LbTown.Text = SQL.SQLBS("Town")
        'LbCounty.Text = SQL.SQLBS("County")
        'LbPostcode.Text = SQL.SQLBS("Postcode")

        'I have Tried This=================================================

        'LbPaymentReceivedID.Text = DGVPaymentReceived.SelectedRows.Item("PaymentReceivedID").ToString
        'LbCustomerName.Text = DGVPaymentReceived.SelectedRows.Item("CustomerName").ToString
        'LbNameOrNumber.Text = DGVPaymentReceived.SelectedRows.Item("NameOrNumber").ToString
        'LbRoadName.Text = DGVPaymentReceived.SelectedRows.Item("RoadName").ToString
        'LbTown.Text = DGVPaymentReceived.SelectedRows.Item("Town").ToString
        'LbCounty.Text = DGVPaymentReceived.SelectedRows.Item("County").ToString
        'LbPostcode.Text = DGVPaymentReceived.SelectedRows.Item("Postcode").ToString

        'I have Tried This=====================================================

        'LbPaymentReceivedID.Text = DataGridViewTextBoxColumn1.ToString
        'LbCustomerName.Text = DataGridViewTextBoxColumn2.ToString
        'LbNameOrNumber.Text = DataGridViewTextBoxColumn3.ToString
        'LbRoadName.Text = DataGridViewTextBoxColumn4.ToString
        'LbTown.Text = DataGridViewTextBoxColumn5.ToString
        'LbCounty.Text = DataGridViewTextBoxColumn6.ToString
        'LbPostcode.Text = DataGridViewTextBoxColumn7.ToString

        'I have Tried This=====================================================

        '(((((  Here I have to reference the Data Grid View, Selected Row Click Somehow )))))))


        'SQL.ExecQuery("SELECT * FROM PaymentReceived ")

        'If SQL.RecordCount < 1 Then Exit Sub

        'For Each r As DataRow In SQL.SQLDT.Rows

        '    LbPaymentReceivedID.Text = r("PaymentReceivedID")
        '    LbCustomerName.Text = r("CustomerName")
        '    LbNameOrNumber.Text = r("NameOrNumber")
        '    LbRoadName.Text = r("RoadName")
        '    LbTown.Text = r("Town")
        '    LbCounty.Text = r("County")
        '    LbPostcode.Text = r("Postcode")

        'Next

    End Sub

Gary Simpson 471

Hi LesHay,

I believe I have found the answer.

The code I have At the Moment...


 Private Sub DGVPaymentReceived_RowEnter(sender As Object, e As DataGridViewCellEventArgs) Handles DGVPaymentReceived.RowEnter


        Dim DGV As DataGridViewRow

        LbPaymentReceivedID.Text = DGV.Cells(0).Value
        LbInvoiceNumber.Text = DGV.Cells(1).Value
        LbCustomerName.Text = DGV.Cells(2).Value
        LbNameOrNumber.Text = DGV.Cells(3).Value
        LbRoadName.Text = DGV.Cells(4).Value
        LbTown.Text = DGV.Cells(5).Value
        LbCounty.Text = DGV.Cells(6).Value
        LbPostcode.Text = DGV.Cells(7).Value

    End Sub

Gary Simpson 471 Reputation points

2023-04-01T11:44:57.11+00:00

LesHay.

Thank you very much for your input, and for taking the time to read my Question.

And for trying to help with the your code the best you could.

I do Not know where I would be without Great People Like you

Thanks Again LesHay

Kindest Regards Gary
LesHay 7,126 Reputation points

2023-04-01T14:23:52.68+00:00
Hi Gary

Glad you have made some progress.

If I may say, you didn't really give my suggestions a good try. Did you bother to try out the code I posted as a new test project? Looking at the code you posted, I think not.

Where you tried to add portions of my code to yours, you defined the necessary DT and BS, and the Label DataSources, but, I can see that you didn't actually load any data.

The structure necessary is as I show in the code I posted. where the only difference would be that where I define DT and manually add data to it, in your case, you would load your data (and end up with a DataTable too - the name of which you would need to substitute my DT with your DataTable name.

You could save yourself an awful lot of repetitive coding if you try some of the inbuilt functions available (such as assigning a DataSource to all the controls you are using - in my example, I show that being done for a Combobox, a few Labels, a search textbox and the DataGridView - resulting in all of them displaying the current data row in concert.

The ComboBox also offers a way of seeing one column but returning another (not illustrated fully).

My code may not be the ideal, but you would make a lot of progress if you try it out. To do so would take probably 15 minutes out of your day.

Just in case you want to try it out:

Start a new Default Project

Add the controls to the Form in the Designer: a DataGridView with its name as 'DGV', and other properties to suit (I changed the RowHeaderVisible, the AutoSizeColumnMode, the AutoSizeRowMode and the Anchor properties), a Label1, Label2, Label3, Label4, Combobox1 renamed 'CB', TextBox1,

Copy/Replace all the default Form1 code with the code I posted above, then, copy/paste the additional 2 subs I posted at the bottom of the code just before the last line (End Class)

Try compiling/running the code (in Debug mode)

If you want, you could give me a sample of the data you are using (anonymised if necessary) and an outline of the functions you need to have for the data and I could code a new example based on your requirements.
Gary Simpson 471 Reputation points

2023-04-01T17:04:29.9033333+00:00

Hi LesHay.

Yes I had tried your code you kindley wrote out for me.

But that Somehow did not work for me Because The Data Grid View was already Loaded with Data on my form Load. So I had to reference the Data Grid View I already Had.

Here is the Proof in the picture. Thank you Very Much for taking the time and trouble LesHay

With A Data Grid View and Row enter

0 additional answers