tableau en VB .net

tableau en VB .net - VB/VBA/VBS - Programmation

Marsh Posté le 24-04-2008 à 11:03:04    

Bonjour a tous
J'ai un problème sur mon prg qui permet de gérer des comptes bancaires
Voici une partie du code d'un bouton qui permet d'aller chercher dans une BD easyPHP la liste des mouvements bancaires correspondant au numéro de compte choisi, et ensuite mettre ces mvt dans un tableau structuré
 

Code :
  1. Public Structure mouvement
  2.         <VBFixedString(10)> Dim datemv As String
  3.         <VBFixedString(10)> Dim libellé As String
  4.         <VBFixedString(50)> Dim débit As String
  5.         <VBFixedString(10)> Dim crédit As String
  6. End Structure
  7. Dim tabmouv() As mouvement
  8. Dim i As Integer
  9.         i = 0
  10.         Dim monAccesBD = New gestionBD("127.0.0.1", "baseig", "root", "root" )
  11.         'rsBD va contenir le resultat de la requete ci dessous
  12.         Dim rsBD As Odbc.OdbcDataReader
  13.         rsBD = monAccesBD.MySQL_Select("select * from mouvements" )
  14.         If LstComptes.SelectedItem = Nothing Then   'Contrôle de la sélection
  15.             MsgBox("Vous n'avez pas sélectionné de compte" )
  16.         Else
  17.             While rsBD.Read
  18.                 If Trim(rsBD.Item(1)) = Val(LstComptes.SelectedItem) Then  'Si le numéro de compte selectionné correspond au numérocompte du mouvement alors on ajoute le mouvement dans la listview
  19.                     tabmouv(i).datemv = rsBD.Item(2)
  20.                     tabmouv(i).libellé = rsBD.Item(3)
  21.                     tabmouv(i).débit = rsBD.Item(4)
  22.                     tabmouv(i).crédit = rsBD.Item(5)
  23.                     i = i + 1
  24.                 End If
  25.             End While
  26.         End If


 
j'ai un avertissement sur la ligne surlignée en rouge  
Avertissement 2 La variable 'tabmouv' est utilisée avant qu'une valeur ne lui ait été assignée. Une exception de référence null peut se produire au moment de l'exécution.
 
J'ai l'erreur suivante sur la ligne surlignée en rouge lorsque j'execute
"System.NullReferenceException : La référence d'objet n'est pas définie à une instance d'un objet."
 
Je bataille depuis plusieur jour dessus alors je vous demande de l'aide ;)


---------------

Reply

Marsh Posté le 24-04-2008 à 11:03:04   

Reply

Marsh Posté le 24-04-2008 à 13:31:37    

j'ai simplifier

Code :
  1. Public Structure mouvement
  2.         <VBFixedString(10)> Dim datemv As String
  3.         <VBFixedString(10)> Dim libellé As String
  4.         <VBFixedString(50)> Dim débit As String
  5.         <VBFixedString(10)> Dim crédit As String
  6. End Structure
  7. Dim n As Integer = 0
  8. Dim tabmouv() As mouvement
  9. tabmouv(n).datemv = "0"
  10. tabmouv(n).libellé = "0"
  11. tabmouv(n).débit = "0"
  12. tabmouv(n).crédit = "0"


 
La j'ai toujours la même erreur, on dirait que le pb vient de la structure
il faudrait initialiser le tableau non?


Message édité par zlatan40 le 24-04-2008 à 13:31:56

---------------

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed