Visual Basic

'When the following button Click,the Report will showout.
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim objRpt As New FrmCrystalRpt
        objRpt.strRptName = New CachedCrystalReport1
        
        objRpt.Show()

    End Sub

'The below is my ReportViewer WinForm
Public Class FrmCrystalRpt
    Public strRptName As Object
    Public strRptFilter As String

    Private Sub FrmCrystalRpt_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If strRptFilter <> "" Then
            crptVW.SelectionFormula = strRptFilter
        End If
        crptVW.ReportSource = strRptName
        crptVW.Show()

    End Sub
End Class

Dim SQL4 As String
        selectmonth = ComboBox2.SelectedItem

        SQL4 = "SELECT * FROM lorry_commission WHERE Lorry_No='" & ComboBox1.SelectedItem & "' AND MONTH(Date)='" & selectmonth & "';"
       
        Try
            ObjMyConn.Open()
            ObjAdapter = New MySqlDataAdapter(SQL, ObjMyConn)
            ObjAdapter.Fill(ds, "Salary44")
        Catch ex As Exception
            MsgBox("Error: " & ex.Source & ": " & ex.Message, MsgBoxStyle.OkOnly)
        Finally
            ObjMyConn.Close()
        End Try

Private Sub DGV1_CellFormatting(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellFormattingEventArgs) Handles DGV1.CellFormatting
Try
	If e.RowIndex >= -1 And e.RowIndex <= DGV1.RowCount Then 'Basic index validation
		If Not ((DGV1 Is Nothing) OrElse (DGV1.Rows(e.RowIndex) Is Nothing) OrElse (DGV1.Rows(e.RowIndex).DataBoundItem Is Nothing)) Then


			Dim dgvRowState As DataRowState = DirectCast(DGV1.Rows(e.RowIndex).DataBoundItem, DataRowView).Row.RowState
			
			'The idea here is to check that it is only for Non Added/Detatched rows where the Effective From Date is smaller than today
			If Not (dgvRowState = DataRowState.Added OrElse dgvRowState = DataRowState.Detached) _
			   AndAlso e.ColumnIndex = EffectFromDataGridViewTextBoxColumn.Index AndAlso CDate(e.Value).Date < Date.Now.Date Then
				e.CellStyle.BackColor = My.Settings.ReadOnlyColor
				DGV1.Rows(e.RowIndex).Cells(e.ColumnIndex).ReadOnly = True
				DGV1.Rows(e.RowIndex).Cells(Field1.Index).ReadOnly = True
				DGV1.Rows(e.RowIndex).Cells(Field2.Index).ReadOnly = True				

				DGV1.Rows(e.RowIndex).Cells(Field1.Index).Style.BackColor = My.Settings.ReadOnlyColor                            
				DGV1.Rows(e.RowIndex).Cells(Field2.Index).Style.BackColor = My.Settings.ReadOnlyColor
				DGV1.Rows(e.RowIndex).Cells(e.ColumnIndex).Style.BackColor = My.Settings.ReadOnlyColor
				
			End If
		End If
	End If
Catch ex As IndexOutOfRangeException
	Exit Sub 'Exception added to aviod the following behaviour... When the user adds a new line enters a value and use the mouse to
	' navigate to another line, the current new row will be cleared and the cellEndEdit event will be fired. inwhich case the DGV contains
	' a blank row that is not dirty. The row  "DGV1.Rows(RowIndex).DataBoundItem" part gives an exception for this row
End Try