IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB.NET Discussion :

remplir textbox depuis un datagrid


Sujet :

VB.NET

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre actif
    Inscrit en
    Août 2010
    Messages
    58
    Détails du profil
    Informations personnelles :
    Âge : 37

    Informations forums :
    Inscription : Août 2010
    Messages : 58
    Par défaut remplir textbox depuis un datagrid
    Bonjour,
    en vb.net je voulais remplir des textbox à partir d'1 datagrid les 2 sont dans une form.mais dans deux groupbox différent.
    je veux quant cliquant sur un enregistrement sur datagrid celui-ci s'affiche sur textbox .

    Merci d'avance.

  2. #2
    Membre éclairé
    Homme Profil pro
    Développeur Full-stack
    Inscrit en
    Novembre 2010
    Messages
    376
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Côte d'Ivoire

    Informations professionnelles :
    Activité : Développeur Full-stack

    Informations forums :
    Inscription : Novembre 2010
    Messages : 376
    Par défaut
    Salut Meryjean,
    Peut importe le groupbox, mais c'est plutôt le nom de la textbox.Tiens ça pour t'aider les 02 codes marchent:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Textbox1.Text=datagridview.Currentrow.Cell(index de la Cellule).Value.
     
    Textbox1.Text = maDataTable.row(index de la Ligne).item(nom du champs)

  3. #3
    Membre actif
    Inscrit en
    Août 2010
    Messages
    58
    Détails du profil
    Informations personnelles :
    Âge : 37

    Informations forums :
    Inscription : Août 2010
    Messages : 58
    Par défaut
    Bonjour,
    Là j’utilise un datagrid est pas un datagrid view .
    je pense que j'ai besoins une boucle

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    for i as integer each in datagrid1.
    textbox1.text=datagrid1.item(0,i)
    textbox2.text=datagrid.item(1,i)
    .
    .
    .
     next
    la question c'est (datagrid1.?) qu est ce que je vais mettre à la place de ?

  4. #4
    Membre extrêmement actif
    Inscrit en
    Avril 2008
    Messages
    2 573
    Détails du profil
    Informations personnelles :
    Âge : 65

    Informations forums :
    Inscription : Avril 2008
    Messages : 2 573
    Par défaut afficher ligne selectionnee dans un datagrid,textbox
    bonjour meryjean,

    voici 2 bouts de code qui font le travail demande pour un datagrid :
    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
     
    ' Utilise directement.CurrentCellChanged pour mise à jour du TextBox 
    Public Class Form1
        Public Sub New()
            ' Cet appel est requis par le Concepteur Windows Form.
            InitializeComponent()
            ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
     
        End Sub
     
        Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            Dim dt As DataTable = New DataTable
            Dim dtCol As DataColumn = New DataColumn
            'ajoute 3 colonnes
            dtCol = New DataColumn("Nom", GetType(String))
            dt.Columns.Add(dtCol)
            dtCol = New DataColumn("Prenom", GetType(String))
            dt.Columns.Add(dtCol)
            dtCol = New DataColumn("Numero", GetType(Integer))
            dt.Columns.Add(dtCol)
     
            Dim dtRow As DataRow
            '1er ligne
            dtRow = dt.NewRow
            dtRow(0) = "Jacques"
            dtRow(1) = "Leveque"
            dtRow(2) = 1550
            dt.Rows.Add(dtRow)
            '2e ligne
            dtRow = dt.NewRow
            dtRow(0) = "Robert"
            dtRow(1) = "Larlequin"
            dtRow(2) = 1560
            dt.Rows.Add(dtRow)
            DataGrid1.DataSource = dt
        End Sub
        Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
            Dim ligSel As Integer = DataGrid1.CurrentRowIndex
            TextBox1.Text = ""
            For elemCol As Integer = 0 To DataGrid1.VisibleColumnCount - 1
                TextBox1.Text = TextBox1.Text & DataGrid1.Item(ligSel, elemCol) & " - "
            Next
        End Sub
    le 2eme ci-apres :
    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
    49
    50
    51
    52
     
     
     
    ' Appelle sub qui met à jour un TextBox 
    Public Class Form2
        Public Sub New()
            ' Cet appel est requis par le Concepteur Windows Form.
            InitializeComponent()
            ' Ajoutez une initialisation quelconque après l'appel InitializeComponent().
        End Sub
     
        Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            Dim dt As DataTable = New DataTable
            Dim dtCol As DataColumn = New DataColumn
            'ajoute 3 colonnes
            dtCol = New DataColumn("Nom", GetType(String))
            dt.Columns.Add(dtCol)
            dtCol = New DataColumn("Prenom", GetType(String))
            dt.Columns.Add(dtCol)
            dtCol = New DataColumn("Numero", GetType(Integer))
            dt.Columns.Add(dtCol)
     
            Dim dtRow As DataRow
            '1er ligne
            dtRow = dt.NewRow
            dtRow(0) = "Jacques"
            dtRow(1) = "Leveque"
            dtRow(2) = 1550
            dt.Rows.Add(dtRow)
            '2e ligne
            dtRow = dt.NewRow
            dtRow(0) = "Robert"
            dtRow(1) = "Larlequin"
            dtRow(2) = 1560
            dt.Rows.Add(dtRow)
            DataGrid1.DataSource = dt
            Call obtientIndexSelectionne(DataGrid1)
        End Sub
     
        Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged
            'on appelle sub qui renvoie toujours index select.
            Call obtientIndexSelectionne(DataGrid1)
        End Sub
        Private Sub obtientIndexSelectionne(ByVal monGrid As DataGrid)
            Dim ligSel As Integer = monGrid.CurrentRowIndex
            TextBox2.Text = ""
            For elemCol As Integer = 0 To monGrid.VisibleColumnCount - 1
                TextBox2.Text = TextBox2.Text & monGrid.Item(ligSel, elemCol) & " - "
            Next
        End Sub
     
    End Class
    a toi de choisir celui qui te convient
    bon code...

Discussions similaires

  1. [C#] Remplir une textbox depuis une base de donnée
    Par Nicos6414 dans le forum Windows Forms
    Réponses: 1
    Dernier message: 11/04/2011, 12h03
  2. [C#] Remplir treeview depuis string[] de paths
    Par joujoukinder dans le forum Windows Forms
    Réponses: 4
    Dernier message: 15/12/2006, 11h06
  3. [C#] modification et suppression depuis un DataGrid
    Par midou25 dans le forum ASP.NET
    Réponses: 2
    Dernier message: 16/11/2006, 09h10
  4. [VB6]mettre a jour textbox depuis la lecture d'un fichier ?
    Par Slumpy dans le forum VB 6 et antérieur
    Réponses: 9
    Dernier message: 16/06/2006, 17h28
  5. [C#] Probleme avec TextBox dans un DataGrid
    Par Oberown dans le forum ASP.NET
    Réponses: 4
    Dernier message: 21/12/2004, 16h05

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo