функция для отображения ежедневного отчета по неоплаченным счетам
Public Sub DayToDayUnpaidInvoice()
Try
connection.Open()
CrystalReportViewer1.Refresh()
Dim sql As String = "SELECT tblclientinfo.Client_ID, tblclientinfo.C_name, tblclientinfo.C_surname, tblinv_info.inv_Num , tblinv_info.Inv_date
FROM tblclientinfo,tblinv_info
WHERE tblclientinfo.Client_ID = tblinv_info.Client_ID AND inv_paid = 'N' OR inv_paid = ''
ORDER BY inv_date ASC;"
cmd = New MySqlCommand(sql, connection)
da = New MySqlDataAdapter()
da.SelectCommand = cmd
ds = New DataSet
da.Fill(ds, "tblclientinfo")
Dim report As New DayToDayUnpaid
report.SetDataSource(ds)
CrystalReportViewer1.ReportSource = report
CrystalReportViewer1.Refresh()
cmd.Dispose()
da.Dispose()
ds.Dispose()
connection.Close()
Catch ex As Exception
MsgBox(ex.Message)
connection.Close()
End Try
End Sub