affichage dans grid view

Question

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

cs_jopop · Answer

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

cs_espoir2010 · Answer

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

cs_jopop · Answer

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)
...

Affichage dans grid view

3 réponses

Votre réponse

Discussions similaires