1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| Private Sub Imprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Imprimer.Click
CrystalReportViewer1.Visible = True
Try
DataSet.Clear()
Select Case Selection
Case 1
STOCKTableAdapter.Fill(Me.DataSet.STOCK)
Case 2
StockTableAdapter1.FillB(Me.DataSet.STOCK)
Case 3
StockTableAdapter2.FillC(Me.DataSet.STOCK)
Case 4
StockTableAdapter3.FillD(Me.DataSet.STOCK)
Case 5
StockTableAdapter4.FillE(Me.DataSet.STOCK)
Case 6
StockTableAdapter5.FillF(Me.DataSet.STOCK)
Case 7
StockTableAdapter7.Fillacc(Me.DataSet.STOCK)
End Select
report.SetDataSource(DataSet)
CrystalReportViewer1.ReportSource = report
Catch ex As Exception
MsgBox("Fermez et Relancez l'application")
End Try
End Sub |
Partager