Bonjour
voila un exemple que j'ai pris dans le document de monsieur J-M Rabilloud(" Controls")
La base de données est Northwind
je voulais tester cet exemple mais à ma surprise quand je click sur l'un des boutons de navigation rien ne se passe, si quelqu'un veut bien me dire pourquoi et merçi voila le bout du 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
 
 
Imports System
Imports System.Data
Imports System.Data.OleDb
 
Public Class Form1
 
    Dim CM As Object
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.dtACategories.Fill(DsNwind1.Catégories)
        Me.dtAClients.Fill(Me.DsNwind1.Clients)
        Me.dtAEmployes.Fill(Me.DsNwind1.Employés)
        Me.dtAFournisseurs.Fill(Me.DsNwind1.Fournisseurs)
        Me.dtAMessagers.Fill(Me.DsNwind1.Messagers)
        Me.dtAProduits.Fill(Me.DsNwind1.Produits)
        Me.dtACommandes.Fill(Me.DsNwind1.Commandes)
        Me.dtADetailsCommandes.Fill(Me.DsNwind1.Détailscommandes)
        Me.dtvMessagers = Me.DsNwind1.Messagers.DefaultView
 
        Me.TxtID.DataBindings.Add("text", Me.dtvMessagers, "N° messager")
        Me.TxtAuteur.DataBindings.Add("text", Me.dtvMessagers, "Nom du messager")
        Me.TxtYear.DataBindings.Add("text", Me.dtvMessagers, "Téléphone")
        CM = CType(Me.BindingContext(Me.dtvMessagers), CurrencyManager)
 
    End Sub
 
 
    Private Sub CmdFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdFirst.Click
        CM.position = 0
    End Sub
 
    Private Sub CmdLast_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmdLast.Click
        CM.position = CM.Count - 1
    End Sub
 
    Private Sub CmdNext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmdNext.Click
        If CM.Position < CM.Count - 1 Then CM.Position += 1
 
        Me.Label4.Text = CM.Position + 1 & "/" & CM.Count & "Enregestrements"
 
    End Sub
 
    Private Sub CmdPrevious_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles CmdPrevious.Click
        If CM.Position > 0 Then CM.Position -= 1
    End Sub
End Class