Visual Basic 2010 Fermé

Question

Bonjour, 
Je fais un projet sous Visual Basic, j'ai une base film a gérer (77 films)
Seulement aprés avoir associé tous les titres a ma base de films mes films se multiplie jusqu'a 6006 films. Je ne comprends pas l'erreur sur mon code 
   Public Sub CreerbaseTitre(ByVal titre As List(Of String)) ', ByVal rating As List(Of String), ByVal listplot As List(Of String))
        Dim j As Integer
        For j = 0 To titre.Count - 1
            Dim t1() As String = Split(titre(j), ") ")
            Dim t As New Film
            t.Actors = New List(Of String)
            t.Actresses = New List(Of String)
            t.Genres = New List(Of String)
            t.Titre = t1(0) + ")"
            t.DateSortie = t1(1) 
             basefilm.Add(t)
        Next
    End Sub

Configuration: Windows 7 / Internet Explorer 9.0

Marion1232 · Answer

Non en fait c'est quand je veux rajouter mes acteurs à ma base de film que mes films se multiplie jusqu'a 6006
mon code est le suivant :
    'Associe à chaque film ses acteurs (caractéristique de la stucture)
    Public Sub CreerbaseActors(ByVal actors As List(Of String))
        Dim i As Integer
        Dim j As Integer
        For i = 0 To basefilm.Count - 1
            For j = 0 To actors.Count - 1
                Dim t() As String = Split(actors(j), ControlChars.Tab)

                If basefilm(i).Titre = t(1) Then
                    basefilm(i).Actors.Add(t(0) + " Rôle : " + t(2)) 't(0) correspond au nom et au prenom de l'acteur et t(2) a son role
                End If
            Next
        Next

    End Sub

Visual Basic 2010

1 réponse

Discussions similaires