MsFlexGrid et Indice hors limites '381'Résolu

Question

Salut à tous !

Indice hors limites '381'

Voilà, ce code :Dim I As Integer
I = 0
If Not (Rs.BOF And Rs.EOF) Then
Rs.MoveFirst
Tableau.Rows = Rs.RecordCount + 1
I = 1
Do While Not Rs.EOF
Tableau.TextMatrix(I, 0) = Rs!NumId
Tableau.TextMatrix(I, 1) = Rs!Validite
I = I + 1
Rs.MoveNext
Loop
End Ifm'affiche cette erreur... je ne comprends pas pourquoi :s

Avez-vous une idée svp ?

Merci						

----------
OS        : Windows 7 Pro 64 Bit
Platforme : VB6

LIBRE_MAX · Accepted Answer

Essaies ceci;

Dim I As Integer
On Erreur GoTo err_

With Tableau
If Not (Rs.BOF And Rs.EOF) Then
   Rs.MoveFirst
  .FixedRows =1
  .Rows =2
  .FixedCols =1
  .Cols =4  
   Do While Not Rs.EOF
     I=.Rows-1
    .TextMatrix(I, 0) = Rs!NumId
    .TextMatrix(I, 1) = Rs!Codes
    .TextMatrix(I, 2) = Rs!Validite
    .TextMatrix(I, 3) = Rs!CodeClient

    .Rows =.Rows+1
     Rs.MoveNext
   Loop
End If
End With
Exit Sub
err_:
MsgBox Err.Descriptio



[] Ce qui va sans dire. va mieux en le disant.

NHenry · Answer

Bonjour, 

Sur quelle ligne, et quelles sont les valeurs de la ligne ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---

Sinsitrus · Answer

Ma table contient 10.000 lignes
La ligne d'erreur est :
Tableau.TextMatrix(I, 0) = Rs!NumId
Merci NHenry

ucfoutu · Answer

Bonjour,
Sur quelle ligne, et quelles sont les valeurs de la ligne ? 

tu n'as pas répondu à la partie soulignée !
Pour connaître ces valeurs : rentre en mode debug.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Sinsitrus · Answer

J'ai fais le débogage, il souligne la ligne que je t'ai donné, me met dessus :
Tableau.TextMatrix(I, 0) = 

Soit je n'ai pas compris le mode debug soit... je en sais pas le faire :s

LIBRE_MAX · Answer

Bonsoir,

En fait, le but est de savoir quelle valeur de i provoque l' erreur.
Quand l' erreur survient et que la ligne est soulignée, en mettant 
le pointeur de la souris sur la variable i, sa valeur est indiquée dans
une tooltiptext.

Autre solution, mettre en place une gestion d' erreur.
Dim I As Integer
I = 0
If Not (Rs.BOF And Rs.EOF) Then
Rs.MoveFirst
Tableau.Rows = Rs.RecordCount + 1

On erreur GoTo err_indice 
I = 1
Do While Not Rs.EOF
Tableau.TextMatrix(I, 0) = Rs!NumId
Tableau.TextMatrix(I, 1) = Rs!Validite
I = I + 1
Rs.MoveNext
Loop
End If

Exit Sub
err_indice:
MsgBox Err.Description & " / " & i 




[] Ce qui va sans dire. va mieux en le disant.

Sinsitrus · Answer

C'est bizarre. Quand je fais ça, il me donne la première ligne de la table et sans le reste des données :Dim I As Integer
I = 0
If Not (Rs.BOF And Rs.EOF) Then
Rs.MoveFirst
On Error Resume Next
'Tableau.Rows = Rs.RecordCount + 1
I = 1
Do While Not Rs.EOF

Tableau.TextMatrix(I, 0) = Rs!NumId
Tableau.TextMatrix(I, 1) = Rs!Codes
Tableau.TextMatrix(I, 2) = Rs!Validite
Tableau.TextMatrix(I, 3) = Rs!CodeClient

I = I + 1
Rs.MoveNext
Loop
End If
On Error Resume Next
'Tableau.Rows = Rs.RecordCount + 1
Si je retire le On Error Resume Next, là il me renvois le même message mais sur :
Tableau.TextMatrix(I, 3) = Rs!CodeClient

Sinsitrus · Answer

C'est bien le texte du tootltiptext que j'avais envoyé plus haut :
Tableau.TextMatrix(I, 0) = 
Et lorsque je viens sur le I,0 il affiche I=1
Tout les I sont égales à 1

Avec ton code, il me fait pareil... il m'envoie en mode debug directement en s'en foutant du message err_indice

LIBRE_MAX · Answer

et donc il s'agit de l' indice de colonne.
T' as combien de colonnes dans ton tableau ?

D' après ton code, il doit en avoir 4.
tableau.FixedCols=1
tableau.Cols=4

Vérifies aussi pour la ligne fixe:
tableau.FixedRows=1


PS:Pour gerer l' erreur on n' utilise pas le On Erreur Resume Next.Mais une etiquette.
[] Ce qui va sans dire. va mieux en le disant.

Sinsitrus · Answer

Hi hi merci ça fonctionne ^^

Impécable :p

MsFlexGrid et Indice hors limites '381'

10 réponses

Votre réponse

Discussions similaires