none
datagridview avec vb2013 RRS feed

  • Question

  • bonjour

     j’ai réussi a charger vb2013 qui fonctionne bien

    par contre je suis devant un blocage qui est le suivant:

     lorsque je charge un fichier sur un datagridview et que je veux enregistrer à nouveau à la suite je n'arrive pas à faire bouger l'index  qui reste toujours a la ligne 0 comment faire.

    qui peut m'éclairer merci d'avance

    samedi 30 avril 2016 12:03

Réponses

Toutes les réponses

  • Est-ce que vous pouvez montrer comment vous chargez vote DGV ainsi que la méthode utilisée pour "faire bouger l'index"?

    samedi 30 avril 2016 14:45
  • bonsoir

    voici mon code de chargement du  fichier

        Private Sub Form3_Load(sender As Object, e As EventArgs) Handles Me.Load
            DataGridView1.BackgroundColor = Color.LightCyan
            DataGridView1.BorderStyle = BorderStyle.Fixed3D
            DataGridView1.DefaultCellStyle.SelectionBackColor = Color.White
            DataGridView1.ColumnHeadersDefaultCellStyle.BackColor = Color.Aqua
            'DataGridView1.Rows.Add(30)
    
            ' Enable resizing on the column headers 
            Me.DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            ' Adjust the text alignment on the column headers to make the text display 
            ' at the center of the bottom 
            Me.DataGridView1.ColumnHeadersDefaultCellStyle.Alignment = DataGridViewContentAlignment.BottomCenter
            'important pour lire il faut  recreer les entête du tableau
            'attention on sauvegarde que du texte pour habille le tableau cellule soculeurs et  casses il faut l faire après d'où intereêt à crrer cela avec un bouton
            DataGridView1.ColumnCount = 11
            DataGridView1.Columns(0).Name = ""
    
            DataGridView1.Columns(0).Name = ""
            DataGridView1.Columns(1).Name = "Prénom "
            DataGridView1.Columns(2).Name = "Nom"""
            DataGridView1.Columns(3).Name = "Société / métier"
            DataGridView1.Columns(4).Name = "Adresse"
            DataGridView1.Columns(5).Name = ""
            DataGridView1.Columns(6).Name = "C.P"
            DataGridView1.Columns(7).Name = "Ville"
            DataGridView1.Columns(8).Name = "Téléphone mobile"
            DataGridView1.Columns(9).Name = "Téléphone fixe"
            DataGridView1.Columns(10).Name = "E-mail"
    
            ''chargement de la lecture texte seul
    
            Dim open As New OpenFileDialog
            open.Filter = "Fichier Texte|*.txt"
            open.FileName = "contacts"
            open.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.Desktop
            If open.ShowDialog = Windows.Forms.DialogResult.OK Then
                Using reader As New StreamReader(open.FileName)
                    Dim TextLine As String = ""
                    Dim SplitLine() As String
                    Do While reader.Peek <> -1
                        TextLine = reader.ReadLine()
                        SplitLine = Split(TextLine, vbTab)
                        DataGridView1.Rows.Add(SplitLine)
                    Loop
                    reader.Close()
                End Using
                'MessageBox.Show("Fichier chargé", "Chargement")
                Form2.Button_lire_fichier.Text = "fichier chargé"
            Else : Exit Sub
            End If
            DataGridView1.Rows.Add(1)
    
        End Sub
    

    et le code du changment de l'index
        Private Sub Button2_ajouter_Click(sender As Object, e As EventArgs) Handles Button2_ajouter.Click
            'Form3.DataGridView1.Rows.Add(1)
    
            Form3.DataGridView1.Refresh()
    
            Dim b As Integer, c As String
            Dim d As String = " "
            b = Form3.DataGridView1.RowCount - 1
            MsgBox("nombre de ligne=" & b)
            For i = 1 To b
                c = Form3.DataGridView1.Rows(i).Cells.Item(1).Value.ToString
                MsgBox("cellule=" & c & " " & "temoin=" & d)
    
                If d = "" And c = "" Then
                    numligne = i : Exit For
                End If
    
            Next
    
    
            MsgBox("numero ligne  libre =" & numligne)
    
            Form3.DataGridView1.Rows(numligne).Cells.Item(1).Value = TextBox1_prenom.Text
    end sub

    merci de votre aide

    samedi 30 avril 2016 21:46
  • Vous ne montrez pas de code pour la sauvegarde des données du DGV, ni de sélection de ligne.

    Pour sélectionner une ligne il faut par exemple faire un

    DataGridView1.ClearSelection()
    DataGridView1.Rows(IndexASelectionner).Selected = True
    samedi 30 avril 2016 22:15
  • merci je ferais un eessais demain

    bonjour merci beaucoup cela fonctionne à merveille

    samedi 30 avril 2016 23:43
  • Ce serai sympa de marquer les réponses qui ont aidées plutôt que vos propres posts....

    Sinon il n'y a pas de raison d'aider...


    dimanche 1 mai 2016 11:31