mrh
Messages postés51Date d'inscriptionlundi 21 janvier 2008StatutMembreDernière intervention 3 mars 2009
-
3 mars 2009 à 10:35
Bonjour,
J'ai un programme en vb.net qui récupère le résultat d'une requête SQL puis écris le résultat dans un fichier excel le problème est que la derniere case n'est jamais remplie!
Voici un bout de mon code :
For x = 0 To NbRow - 1
'On remplis le fichier excel avec le résultat de la requête
For y = 0 To nbcol - 1
Try
Menu1.ProgressBar1.Value = Menu1.ProgressBar1.Value + 1
pourcent = (Menu1.ProgressBar1.Value * 100 / Menu1.ProgressBar1.Maximum).ToString()
Menu1.Label1.Text = pourcent.Substring(0, pourcent.IndexOf(",")) & "%"
Menu1.Label1.Refresh()
'Pour les cases à cocher si la valeur est True on met Oui dans la cellule
'Sinon on ne met rien
ligne = data.Tables("RECHERCHE").Rows(x).Item(y).ToString()
If ligne = "True" Then
ligne = "oui"
ElseIf ligne = "False" Then
ligne = ""
Else
ligne = data.Tables("RECHERCHE").Rows(x).Item(y).ToString()
End If
xlSheet.Rows(x + 2).RowHeight = 200
xlSheet.Cells(x + 2, y + 1) = Replace(ligne, "00:00:00", "")
Catch ex As Exception
'MsgBox(ex.ToString)
End Try
Next
Next
Voila si vous trouver quelque chose merci d'avance!