Что я сделаю, чтобы разрешить выполнение других форм во время работы представления Crystal Report? Вот код:
Public Sub printCurrentHistory()
If dt.Columns.Count = 0 Then
With dt
.Columns.Add("update_time")
.Columns.Add("sender")
.Columns.Add("humidity")
.Columns.Add("temperature")
.Columns.Add("rain")
.Columns.Add("wind_dir")
.Columns.Add("wind_speed")
End With
End If
For Each dr As DataGridViewRow In frmMain.dgvSearch.Rows
dt.Rows.Add(dr.Cells("Updated").Value, dr.Cells("Sender").Value, dr.Cells("Humidity").Value, dr.Cells("Temperature").Value, dr.Cells("Rain").Value, dr.Cells("Wind_Direction").Value, dr.Cells("Wind_Speed").Value)
Next
Dim rptDoc As CrystalDecisions.CrystalReports.Engine.ReportDocument
rptDoc = New CrystalReport1
rptDoc.SetDataSource(dt)
frmPrint.CrystalReportViewer1.ReportSource = rptDoc
frmPrint.ShowDialog()
dt.Rows.Clear()
dt.Clear()
dt.Dispose()
rptDoc.Dispose()
End Sub
Форма отчета Crystal Viewer: