Bonjour à tous,
J'ai une DataTable dont je prends quelques lignes pour mettre dans un GridView:
je ne mets qu'une ligne par formation et donc j'ai plus de lignes dans la DataTable que dans mon GridView.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 For i = 0 To Me.DsCollaborateurs.dtFormations.Rows.Count - 1 If Not arrExist.Contains(Me.DsCollaborateurs.dtFormations.Rows(i).Item("id_calendrier") & Me.DsCollaborateurs.dtFormations.Rows(i).Item("mec")) Then Me.gvFormationsFaites.Rows.Add(Me.DsCollaborateurs.dtFormations.Rows(i).Item("theme"), Me.DsCollaborateurs.dtFormations.Rows(i).Item("stage"), Me.DsCollaborateurs.dtFormations.Rows(i).Item("nom"), Me.DsCollaborateurs.dtFormations.Rows(i).Item("duree"), Me.DsCollaborateurs.dtFormations.Rows(i).Item("prix") + Me.DsCollaborateurs.dtFormations.Rows(i).Item("frais"), Format(Me.DsCollaborateurs.dtFormations.Rows(i).Item("date_debut"), "dd/MM/yyyy")) arrExist(p) = Me.DsCollaborateurs.dtFormations.Rows(i).Item("id_calendrier") & Me.DsCollaborateurs.dtFormations.Rows(i).Item("mec") p = p + 1 End If Next
Après je fais un export de ces donnés vers un fichier Excel:
Mon problème est-ce que la base que j'utilise pour remplir mon report (ce qui je fais l'export) est ma DataTable, et je ne voudrais exporter que les lignes qui sont dans le GridView.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 Me.saveFile.FileName = "Extraction des formations " & Format(Date.Today, "dd-MM-yyyy") & ".xls" Me.saveFile.ShowDialog() Dim _FileName As String = Me.saveFile.FileName Try Me.rptFormations1.ExportToDisk(ExportFormatType.ExcelRecord, _FileName) Catch ex As Exception MsgBox("Erreur d'enregistrement" & vbNewLine & ex.Message) End Try
Est-ce que quelqu'un sait comment faire pour n'exporter que les donnés presents dans le GridView?
Merci d'avance pour votre aide...
Partager