我在使用VS2015的代码上遇到问题,我几乎完成了该项目,只有水晶报表阻止了我。使用此代码从数据集中添加我的数据表后,我只希望在水晶报表上打印一行,但给我错误:
If dgvop.SelectedRows.Count > 0 Then
Dim Name As String = dgvop.SelectedRows(0).Cells(1).Value
Dim sex As String = dgvop.SelectedRows(0).Cells(2).Value
Dim age As String = dgvop.SelectedRows(0).Cells(3).Value
Me.Lis.operation.Rows.Clear()
Me.Lis.operation.AddoperationRow(Name, sex)
End If
Dim rpt As New Labrpt
rpt.SetDataSource(Lis)
Me.CrystalReportViewer1.ReportSource = rpt
但是AddoperationRow(Name,sex)说过载,我使用了另一个代码
If dgvop.SelectedRows.Count > 0 Then
Dim Name As String = dgvop.SelectedRows(0).Cells(1).Value
Dim sex As String = dgvop.SelectedRows(0).Cells(2).Value
Dim age As String = dgvop.SelectedRows(0).Cells(3).Value
Me.Lis.operation.Rows.Clear()
Me.Lis.operation.Rows.Add(Name, sex)
End If
Dim rpt As New Labrpt
rpt.SetDataSource(Lis)
Me.CrystalReportViewer1.ReportSource = rpt
但是当我按print时,报告会长时间处理而不显示任何数据。我希望我的问题得到理解,非常感谢您的帮助。