J'ai un tableau de créer dans ma page asp.net et dans ce tableua je voudrais ajouter des tableaux dynamiquement en fonction de ce que je lis dans un base de données,

voila le code que j'ai:

Dim result As OleDbDataReader
Dim strSQL As String = "SELECT * FROM fiches_techniques WHERE IDLOG='" & Logiciel.SelectedItem.Value & "' ORDER BY Date DESC"
result = GetReader(strSQL)

Do Until Not result.Read

Dim tab As System.Web.UI.WebControls.Table
Dim Table_rows As TableRow
Dim Table_cell As TableCell

'ligne vide
Dim ligne_vide As New TableRow
Dim Cellule_vide As New TableCell
Dim hauteur As Unit
hauteur = hauteur.Pixel(40)
Cellule_vide.Height = hauteur
ligne_vide.Cells.Add(Cellule_vide)
result_consult.Rows.Add(ligne_vide)



'Premiere ligne d'une fiche
Dim premier_ligne As New TableRow
Dim Intitule As New TableCell
Dim Consulter As New TableCell

Intitule.Text = result("Intitule")
Intitule.ColumnSpan = 2
Dim largeur As Unit
largeur = largeur.Pixel(550)
Intitule.Width = largeur
Intitule.CssClass = "pre_int"

largeur = largeur.Pixel(150)
Consulter.Width = largeur
Consulter.Text = "consulter"


premier_ligne.Cells.Add(Intitule)
premier_ligne.Cells.Add(Consulter)

tab.Rows.Add(premier_ligne)

'deuxiéme ligne d'une fiche
Dim deuxieme_ligne As New TableRow
Dim Nature As New TableCell
Dim Fonction As New TableCell
Dim Gravite As New TableCell

Nature.Text = result("Nature")
Fonction.Text = result("Fonction")
Gravite.Text = result("Gravite")

deuxieme_ligne.Cells.Add(Nature)
deuxieme_ligne.Cells.Add(Fonction)
deuxieme_ligne.Cells.Add(Gravite)

TAB.Rows.Add(deuxieme_ligne)


'ajout de la table dans le tableau
Table_cell.Controls.Add(tab)
Table_rows.Cells.Add(Table_cell)
result_consult.Rows.Add(Table_rows)


Loop

resul_consult un tableau déja creer dans la page aspx

Voici l'erreur que j'ai:

Erreur du serveur dans l'application '/gestionFT'.
--------------------------------------------------------------------------------

La référence d'objet n'est pas définie à une instance d'un objet.
Description : Une exception non gérée s'est produite au moment de l'exécution de la demande Web actuelle. Contrôlez la trace de la pile pour plus d'informations sur l'erreur et son origine dans le code.

Détails de l'exception: System.NullReferenceException: La référence d'objet n'est pas définie à une instance d'un objet.

Erreur source:


Ligne 108 : premier_ligne.Cells.Add(Consulter)
Ligne 109 :
Ligne 110 : tab.Rows.Add(premier_ligne)
Ligne 111 :
Ligne 112 : 'deuxiéme ligne d'une fiche


Fichier source : C:\Inetpub\wwwroot\GestionFT\Consulter_FT.aspx.vb Ligne : 110