How to highlight updated value in DataGridView cell?!

Hi… :wave:

I need help to highlight the value in DGV cell after updating these values from Search form so that the user knows the row which been updated…

Codes in search form

Code:

---

Imports System.Data
Imports System.Data.OleDb


Public Class Form2
    Dim frm As New Form1
    Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\data.mdb"
    Dim Conn As New OleDbConnection(ConStr)
    Dim DataSet1 As New DataSet
    Dim SQLstr As String
    Dim m As String


    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click

        DataSet1 = New DataSet

        Static m As Integer = 0
        If tbSearch.Text = Trim("") Then Exit Sub
        ExactSearch()
        Conn.Open()
        Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
        DataAdapter1.Fill(DataSet1, "store")

        Conn.Close()
        tbSearchResulItemPartNumber.DataBindings.Clear()
        tbSearchResultItemDeascriptions.DataBindings.Clear()
        tbSearchResultItemLocation.DataBindings.Clear()
        tbItemQuantitySearchResult.DataBindings.Clear()

        tbSearchResulItemPartNumber.DataBindings.Add("Text", DataSet1, "store.Item Part Number")
        tbSearchResultItemDeascriptions.DataBindings.Add("Text", DataSet1, "store.Item Descriptions")
        tbSearchResultItemLocation.DataBindings.Add("Text", DataSet1, "store.Item Location")
        tbItemQuantitySearchResult.DataBindings.Add("Text", DataSet1, "store.Item Quantity")

        DataGridView1.DataSource = DataSet1
        DataGridView1.DataMember = "store"

        DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells

        btnEDIT.Enabled = True
        btnSUBTRACT.Enabled = True
        btnADD.Enabled = True
        tbItemQuantityCalculation.Enabled = True


        If Me.BindingContext(DataSet1, "store").Count = 0 Then
            MsgBox("No Result??!! ")
            Form1.Show()
            Me.Close()
        End If

        Exit Sub

    End Sub

    Public Sub ExactSearch()
        SQLstr = "SELECT * FROM store WHERE [Item Part Number ]= '" & tbSearch.Text & "'"
    End Sub

   
    Private Sub btnBACK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBACK.Click
        Me.Close()
        Form1.Show()
    End Sub

 

    Private Sub Form2_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Conn.Open()
        Try
            Dim cmd As OleDbCommand = New OleDbCommand("Select [Item Part Number] from store", Me.Conn)
            Dim reader As OleDbDataReader = cmd.ExecuteReader()
            Dim list As New AutoCompleteStringCollection
            While reader.Read
                list.Add(reader.Item("Item Part Number"))
            End While
            tbSEARCH.AutoCompleteMode = AutoCompleteMode.SuggestAppend
            tbSEARCH.AutoCompleteSource = AutoCompleteSource.CustomSource
            tbSEARCH.AutoCompleteCustomSource = list

        Catch ex As Exception
            Conn.Close()
            Throw ex

        End Try
        Conn.Close()
    End Sub

   


    Private Sub btnSUBTRACT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSUBTRACT.Click
        Dim x As Integer
        If Not Integer.TryParse(Me.tbItemQuantityCalculation.Text, x) Then
            MessageBox.Show("Only Integer values Here")
            tbItemQuantityCalculation.SelectAll()
            tbItemQuantityCalculation.Focus()
            Exit Sub
        End If
        Dim strUPD As String
        strUPD = "Update store set"
        strUPD &= "[Item Quantity] = [Item Quantity] - " & x.ToString()
        strUPD &= " Where [Item Part Number] = '" & tbSearchResulItemPartNumber.Text & "'"

        Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\data.mdb"
        Dim Conn As New OleDbConnection(ConStr)
        Dim SavInto As New OleDb.OleDbCommand
        SavInto.Connection = Conn
        SavInto.CommandType = CommandType.Text
        SavInto.CommandText = strUPD
        Conn.Open()
        SavInto.ExecuteNonQuery()
        Conn.Close()

        MsgBox("Item Quantity Updated Successfully")
        Me.Close()
        Form3.Show()


    End Sub




    Private Sub btnADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnADD.Click
        Dim x As Integer
        If Not Integer.TryParse(Me.tbItemQuantityCalculation.Text, x) Then
            MessageBox.Show("Only Integer values Here")
            tbItemQuantityCalculation.SelectAll()
            tbItemQuantityCalculation.Focus()
            Exit Sub
        End If
        Dim strUPD As String
        strUPD = "Update store set"
        strUPD &= "[Item Quantity] = [Item Quantity] + " & x.ToString()
        strUPD &= " Where [Item Part Number] = '" & tbSearchResulItemPartNumber.Text & "'"

        Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\data.mdb"
        Dim Conn As New OleDbConnection(ConStr)
        Dim SavInto As New OleDb.OleDbCommand
        SavInto.Connection = Conn
        SavInto.CommandType = CommandType.Text
        SavInto.CommandText = strUPD
        Conn.Open()
        SavInto.ExecuteNonQuery()
        Conn.Close()

        MsgBox("Item Quantity Updated Successfully")
        Me.Close()
        Form3.Show()


    End Sub


   
    Private Sub btnEDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEDIT.Click
        btnEDIT.Enabled = False
        btnSAVE.Enabled = True
        btnCANCEL.Enabled = True

        tbSearchResultItemDeascriptions.ReadOnly = False
        tbSearchResultItemDeascriptions.BackColor = Color.White

        tbSearchResultItemLocation.ReadOnly = False
        tbSearchResultItemLocation.BackColor = Color.White

    End Sub

    Private Sub btnCANCEL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCANCEL.Click
        btnEDIT.Enabled = True
        btnSAVE.Enabled = False
        btnCANCEL.Enabled = False

        tbSearchResultItemDeascriptions.ReadOnly = True
        tbSearchResultItemDeascriptions.BackColor = Color.PowderBlue

        tbSearchResultItemLocation.ReadOnly = False
        tbSearchResultItemLocation.BackColor = Color.PowderBlue

    End Sub

    Private Sub btnSAVE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSAVE.Click
        Dim n As String = Me.tbSearchResulItemPartNumber.Text
        Dim SavInto As New OleDb.OleDbCommand
        Dim ConStr As String = _
            "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & _
            Application.StartupPath & "\data.mdb"
        Dim Conn As New OleDbConnection(ConStr)
        SavInto.Connection = Conn
        SavInto.CommandType = CommandType.Text
        SavInto.CommandText = "UPDATE store SET [Item Descriptions] = '" & Trim(tbSearchResultItemDeascriptions.Text) & "' , [Item Location] = '" & Trim(tbSearchResultItemLocation.Text) & "' , [Item Part Number ]= '" & Trim(tbSearchResulItemPartNumber.Text) & "'  WHERE [Item Part Number ] ='" & n & "'"
        Conn.Open()
        SavInto.ExecuteNonQuery()
        Conn.Close()

        MsgBox("Database Updated Successfully")
        Me.Close()
        Form3.Show()
    End Sub
End Class

---

Codes in DataGridView form

Code:

---

Public Class Form3

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
        Form1.Show()
    End Sub

   

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'DataDataSet.STORE' table. You can move, or remove it, as needed.
        Me.STORETableAdapter.Fill(Me.DataDataSet.STORE)

    End Sub

   
 
End Class

---

Any ideas…:confused:

Regards…:)

:(

Is my Query not clear :ehh:

Or is not possible :eek2:

Anybody PLEASE :o