Public sub PossibleEmployeeSalary Dim adoCmd As New SqlClient.SqlCommand Dim adoRdr As SqlDataReader Dim cryRpt As New ReportDocument cryRpt.Load("C:\TEMP\REPORT1.RPT") Try adoCmd.Connection = adoConn adoCmd.CommandType = CommandType.Text adoCmd.CommandText = "SELECT * FROM vwMyView" adoCmd.ExecuteReader() While adoRdr.Read() adoRdr("Salary") = adoRdr("Salary") * 0.05 adoRdr("Surname") = adoRdr("Surname") End While CrystalReportViewer1.Zoom(1) CrystalReportViewer1.Refresh() Catch ex As Exception End Try End Sub
cryRpt.setdatasource=dr crystalreportviewer1.reportsource=cryRpt
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)