Мой кристалл ничего не может заполнить из двух таблиц - PullRequest
0 голосов
/ 04 августа 2020

функция для отображения ежедневного отчета по неоплаченным счетам

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

1 Ответ

0 голосов
/ 04 августа 2020

Измените это:

report.SetDataSource(ds)

на это

report.SetDataSource(ds.Tables(0))
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...