bonjour tous le mondes
aidez mois s'il vous plait je suis debutant je travail sur un projet et j'ai l'erreur suivante:
je ne sais pas d ou viens l'erreurL'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 :
merci pour votre aides
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
Partager