bonjour tous le mondes
aidez mois s'il vous plait je suis debutant je travail sur un projet et j'ai l'erreur suivante:
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
je ne sais pas d ou viens l'erreur
voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Imports CrystalDecisions.CrystalReports.Engine
Imports System.Data.OleDb
Public Class Form1
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim SqlQuery As String = "SELECT * FROM PERMA where ID= " & Form2.DataGridView1.SelectedRows(0).Cells(0).Value.ToString() & ""
        Dim SqlCommand As New OleDbCommand
        Dim SqlApter As New OleDbDataAdapter
        Dim TABLE As New DataTable
 
        With SqlCommand
            .CommandText = SqlQuery
            .Connection = Form2.conn
        End With
 
        With SqlApter
            .SelectCommand = SqlCommand
            .Fill(TABLE)
 
        End With
 
        Dim crystal As New CrystalReport1
 
        crystal.SetDataSource(TABLE)
        rptviewer.ReportSource = crystal
 
        rptviewer.Refresh()
 
    End Sub
End Class
merci pour votre aides