Public Sub GenerateCreditorsListingRpt(ByVal strSupplierCdeFrom As String, _
ByVal strSupplierCdeTo As String, _
ByRef robjReport As CrystalReport, _
ByRef rfrmPreview As Form)
Dim objReportDB As New clsReportDB
Dim rstResult As New ADODB.Recordset
Dim rstResultDefaultAcct As New ADODB.Recordset
Dim strQuery As String

这篇博客详细介绍了如何在VB中利用Crystal Report控件填充子报表数据。通过建立SQL查询,筛选出符合条件的数据,并分别应用于主报告和子报告。最后展示了如何展示预览窗体并处理无记录情况。
最低0.47元/天 解锁文章
1713

被折叠的 条评论
为什么被折叠?



