Discussion :

[kruger54]

Bonjour a tous,
dans une combobox j'ai une liste de client
l'operateur doit saisir un client. La combo a deux paramètres

1. Quand l’operateur appuye sur entree on passe au champ suivant à remplir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
     Private Sub ComboBoxLivreur_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBoxLivreur.KeyDown 
  If e.KeyCode = Keys.Enter Then
            'SendKeys.Send("{tab}")
            TxtAcheteur.Focus()
        End If
end sub

2. A la perte du focus on vérifie si le client existe dans la base ; si il existe on remplie une textbox si non message d’erreur et on revient sur le combo

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
 Private Sub ComboBoxLivreur_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBoxLivreur.LostFocus
           Dim monview As New DataView(MonDataSetEnLocal.Tables("table_livreur"))
            sComm.CommandText = "SELECT SOUSCOOP , CODECLIENT FROM t_livreur "
            da.SelectCommand = sComm
            StLivreur = Me.ComboBoxLivreur.Text
            If MonDataSetEnLocal.Tables("table_livreur").Select("SOUSCOOP = '" & StLivreur & "'").Count = 1 Then
                monview.Sort = "SOUSCOOP asc"
                For Each ligne As DataRowView In monview.FindRows(StLivreur)
                    TxtLivreur.Text = ligne("CODECLIENT")
 
 
                Next
            Else
                MsgBox("Le  client n'existe pas")
                TxtLivreur.Text = ""
                ComboBoxLivreur.Text = ""
                ComboBoxLivreur.Focus()
            End If

end sub
Mon problème est que si la premier fois le client n’existe pas on reviens bien sur le combobox mais si l’operateur rentre de nouveau un client qui n’existe pas et valide entree la perte du focus ne se relance pas . l’idéal pour moi serrais si l'operateur appuie sur entree on lance la perte du focus mais je n'y arrive pas . merci pour votre aide

[shayw]

Bonjour
le code du 2 est le code de l'event ComboBoxLivreur_LostFocus ?

[kruger54]

oui le premier c'est pour keydown et le deuxieme lostfocus

[shayw]

Mon problème est que si la premier fois le client n’existe pas on reviens bien sur le combobox

pas chez moi
mets un point d'arret à la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 ComboBoxLivreur.Focus()

et arrivé au point d'arret continue pas à pas :l'évenement ComboBoxLivreur_LostFocus est toujours déclenché

[kruger54]

c'est ce que j'ai fait j'ai mi un point d’arrêt sur la premier ligne de mon lostfocus , au premier essaie je tape un client qui existe pas (le point d'arret stop bien sur le lostfocus),j'ai bien le message "le client n'existe pas " puis je retape un client qui n'existe pas , je valide par entree et la sa va direct sur le prochain champ ( la , le point d’arrêt s'active pas )

[shayw]

essaie ainsi

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
 Private Sub ComboBoxLivreur_KeyDown(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles ComboBoxLivreur.KeyDown
        If e.KeyCode = Keys.Enter Then
            Dim monview As New DataView(MonDataSetEnLocal.Tables("table_livreur"))
            sComm.CommandText = "SELECT SOUSCOOP , CODECLIENT FROM t_livreur "
            da.SelectCommand = sComm
            StLivreur = DirectCast(sender, ComboBox).Text
            If MonDataSetEnLocal.Tables("table_livreur").Select("SOUSCOOP = '" & StLivreur & "'").Count = 1 Then
                monview.Sort = "SOUSCOOP asc"
                For Each ligne As DataRowView In monview.FindRows(StLivreur)
                    TxtLivreur.Text = ligne("CODECLIENT")
                Next
                TxtAcheteur.Focus()
            Else
                MessageBox.Show("Le  client n'existe pas")
                TxtLivreur.Text = ""
                DirectCast(sender, ComboBox).Text = String.Empty
            End If
        End If
 
    End Sub