Boucle avec VB
NagNag
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Avec VB6 comment je peux résoudre le problème suivant : trois listes A,B et C la liste A comprend des réels de 1 à 10 (incrémentation) et la liste B comrend les réels suivants (2,3,6,9) , comment renvoyer les éléments dans la liste C les éléments manuquants c-a-d (1,4,5,7,8 et 10) Merci
Avec VB6 comment je peux résoudre le problème suivant : trois listes A,B et C la liste A comprend des réels de 1 à 10 (incrémentation) et la liste B comrend les réels suivants (2,3,6,9) , comment renvoyer les éléments dans la liste C les éléments manuquants c-a-d (1,4,5,7,8 et 10) Merci
A voir également:
- Boucle avec VB
- Vb - Télécharger - Langages
- Vb cable - Télécharger - Audio & Musique
- Boucle excel sans macro - Forum Excel
- Mon pc s'allume et s'éteint en boucle ✓ - Forum Matériel & Système
- Mise à disposition de boucle locale dédiée ✓ - Forum Freebox
71 réponses
je vais encore faire une exception pour toi ... décidemment tu es gaté ... ma proposition est assez simpliste et il existe surement un moyen plus conventionnel. Mais je suis en manque d'inspiration ... :o)
Public Function SearchTable()
Dim i As Integer
i = ReturnI(Qr.Fields(0))
While Not Qr.EOF
If i <> Qr.Fields(0) Then
lstaud.AddItem i
Qr.MovePrevious
End If
Qr.MoveNext
i = i + 1
Wend
End Function
Public Function ReturnI(ByVal ind As Integer) As Integer
Dim strI As String
Dim lg As Long
Dim c As String
strI = CStr(ind)
lg = Len(strI)
If Right(strI, 1) <> "1" Then
ReturnI = CInt(Left(strI, lg - 1) & 1)
Esle
ReturnI = ind
End If
End Function
Public Function SearchTable()
Dim i As Integer
i = ReturnI(Qr.Fields(0))
While Not Qr.EOF
If i <> Qr.Fields(0) Then
lstaud.AddItem i
Qr.MovePrevious
End If
Qr.MoveNext
i = i + 1
Wend
End Function
Public Function ReturnI(ByVal ind As Integer) As Integer
Dim strI As String
Dim lg As Long
Dim c As String
strI = CStr(ind)
lg = Len(strI)
If Right(strI, 1) <> "1" Then
ReturnI = CInt(Left(strI, lg - 1) & 1)
Esle
ReturnI = ind
End If
End Function
non je suis pas gaté, mais je trouve pas la concentration, mais toi très gentil et très généreux, merci et je m'excuse pour le dérangement.
NAGNAG
NAGNAG
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour POLUX31,
Comment tu vas bien ? je suis entrain de terminer le programme concernant ma base de donnée, après avoir terminé les numéros manuquants, envie de les remplir à partir d'un form contenant un listbox qui génére ces numéros.
Comment tu vas bien ? je suis entrain de terminer le programme concernant ma base de donnée, après avoir terminé les numéros manuquants, envie de les remplir à partir d'un form contenant un listbox qui génére ces numéros.
C'est pas le cas, car il faut bien saisir formulaire vièrge en recuperant ces numeros(n°,classe,annee scolaire,adresse n° de tel..., un par un.