affichage dans grid view

bonsoir
j ai utilisé ce code mais ne marche pas il n'affiche pas dans gridview il me donne un erreur merci a vos reponces

For i = 0 To dt.Rows.Count - 1

cmd = New SqlCommand("select " & dt.Rows(i).Item(6) & " from " & dt.Rows(i).Item(5), cn)
da = New SqlDataAdapter(cmd)
da.Fill(ds, "v")
dt1 = ds.Tables("v")
a = 0
Dim b As Double
Dim c As Integer = (dt.Rows(i).Item(7) * 365)
Dim k = dt.Rows(i).Item(8)
For j = 0 To dt1.Rows.Count - 1
b = DateDiff(DateInterval.Day, Today, dt1.Rows(j).Item(0))
Dim s As Integer = b + c
If s < k Then
a = a + 1
End If
Next
TextBox1.Text = a
GridView1.Rows(i).Cells(0).Text = dt.Rows(i).Item(0)
GridView1.Rows(i).Cells(0).Text = dt.Rows(i).Item(4) & a & dt.Rows(i).Item(5)

Next

Salut,

mets ton code en forme (avec la balise code) et explicite ton erreur.

bonjour,
voici l erreur (L'index était hors limites. Il ne doit pas être négatif et doit être inférieur à la taille de la collection.
Nom du paramètre : index )
voici le code vb.net
Imports System.Data.SqlClient
Partial Public Class Affichage
Inherits System.Web.UI.Page
Public cn As SqlConnection
Public cmd As SqlCommand
Public da As SqlDataAdapter
Public ds, ds1 As New DataSet
Public dt, dt1, dt2, dt3 As New DataTable
Public cmdb As SqlCommandBuilder
Public Sub connect()
cn = New SqlConnection("Data Source=AM;Initial Catalog=NORTHWND.MDF;Integrated Security=True")
End Sub
Public Sub Alt()
cmd = New SqlCommand("select * from Alertes", cn)
da = New SqlDataAdapter(cmd)
da.Fill(ds, "a")
dt = ds.Tables("a")
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

connect()
Alt()
Dim a As Integer
cmd = New SqlCommand("select " & dt.Rows(i).Item(6) & " from " & dt.Rows(i).Item(5), cn)
da = New SqlDataAdapter(cmd)
da.Fill(ds, "v")
dt1 = ds.Tables("v")
a = 0
Dim b As Double
Dim c As Integer = (dt.Rows(i).Item(7) * 365)
Dim k = dt.Rows(i).Item(8)
For j = 0 To dt1.Rows.Count - 1
b = DateDiff(DateInterval.Day, Today, dt1.Rows(j).Item(0))
Dim s As Integer = b + c
If s < k Then
a = a + 1
End If
Next
TextBox1.Text = a
GridView1.Rows(i).Cells(0).Text = dt.Rows(i).Item(0)
GridView1.Rows(i).Cells(0).Text = dt.Rows(i).Item(4) & a & dt.Rows(i).Item(5)

Next



End Sub


merci

Utilise les balises code, c'est toujours suant à lire ...
Et vu que j'ai pas la ligne de l'erreur ça peut intervenir sur n'importe quel indexer :
- dt.Rows(i)
- dt.Rows(i).Item(6)
- dt.Rows(i).Item(5)
- dt.Rows(i).Item(7)
- dt1.Rows(j).Item(0)
...