Bonjour
Bon voilà, j'utilise une variable int pour n'aviguer dans les rows d'un dataset d'une requête SQL, quand j'appelle ma fonction qui fait i = i + 1, et bien quand la page load mon i redevient 0 à tout les coup, donc quand j'appuie sur le boutton suivant, il va toujours checher la rows(1) de mon dataset. Voici mon 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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
Imports System.Data.SqlClient
 
Partial Public Class _Default
    Inherits System.Web.UI.Page
    Private Con As SqlConnection
    Private Cmd As SqlCommand
    Private Da As SqlDataAdapter
    Private Ds As DataSet
    Private results As String
    Private i As Integer
 
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Con = New SqlConnection("Data Source = CNTNGSOEAMS1\SqlExpress; Initial Catalog = Centraide; Integrated Security = SSPI;")
        Cmd = New SqlCommand("Select * from employe where Matricule like '" & TextBox1.Text & "%'", Con)
        Da = New SqlDataAdapter(Cmd)
        Ds = New DataSet()
 
        Da.Fill(Ds)
    End Sub
 
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        change_i(0)
        Aff_Emp()
    End Sub
    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
        change_i(1)
        Aff_Emp()
    End Sub
    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click
        change_i(-1)
        Aff_Emp()
    End Sub
    Public Sub Aff_Emp()
        If Ds.Tables(0).Rows.Count > 0 Then
            TextBox2.Text = Ds.Tables(0).Rows(i).Item(0)
            TextBox3.Text = Ds.Tables(0).Rows(i).Item(1)
            TextBox4.Text = Ds.Tables(0).Rows(i).Item(2)
        End If
    End Sub
 
    Public Sub change_i(ByVal _i As Integer)
        If _i = 0 Then
            i = 0
        ElseIf _i = 1 Then
            i = i + 1
        ElseIf _i = -1 Then
            If i > 0 Then
                i = i - 1
            End If
        End If
    End Sub
 
 
End Class
Merci de m'aider