How to group by Data group by in datagrid view in vb.net

I searched the solutions to group data in datagridview. Here is the best and easiest solution I found.

    Private Sub dgvItemList_CellFormatting(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles dgvItemList.CellFormatting
        If e.RowIndex > 0 And e.ColumnIndex = 3 Then
            If Me.dgvItemList.Item(3, e.RowIndex - 1).Value = e.Value Then
                e.Value = ""
            End If
        End If

        If e.Value.ToString <> "" And e.ColumnIndex = 3 Then
            e.CellStyle.BackColor = Color.SkyBlue
        End If
    End Sub

Reference :

http://www.vb-tips.com/DataGridViewGrouping.aspx

how to write datagridview edited data to database in vb.net

Public vDA As OleDb.OleDbDataAdapter
Public vDs As DataSet

    Private Sub cmdGenerate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGenerate.Click
       
        Dim vSelStr As String = "SELECT * FROM PRODUCTION WHERE PDATE = #" & vDate & "#"

        vDA = New OleDb.OleDbDataAdapter(vSelStr, con)
        vDs = New DataSet
        vDA.Fill(vDs, "Production")

        Me.dgvData.DataSource = vDs.Tables("PRODUCTION")

    End Sub


    Private Sub cmdUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUpdate.Click

        Dim vCb As OleDb.OleDbCommandBuilder

        vCb = New OleDb.OleDbCommandBuilder(vDA)

        vDA.Update(vDs, "PRODUCTION")
     
        MsgBox("Updated!")
    End Sub

Check Date in OLedb in Vb.Net

Dim vDate As Date = Format(Me.datetimepicker1.Value, "MM/dd/yyyy")
        Dim vDelStr As String = "DELETE * FROM PRODUCTION  _
WHERE PDATE =#" & vDate.ToString("MM/dd/yyyy") & "#"
     

        Dim Delcmd As New OleDb.OleDbCommand(vDelStr, con)
       
        Delcmd.ExecuteNonQuery()

How to set a value in datagridview in Vb.Net

If e.ColumnIndex = 5 Then


            If Me.dgvData IsNot Nothing AndAlso Me.dgvData.CurrentRow IsNot Nothing Then
Me.dgvData.CurrentRow.Cells("Made_Cost").Value = Me.dgvData.CurrentRow.Cells("ItemmPrice").Value  *    Me.dgvData.CurrentRow.Cells("Made_Item").Value
            End If

End If