liste dans datagrid

Question

Salut,
 j'ain besoins de l'aide dans ce truc 
voila 
une formulaire vb6 et une base de doneés access
ce que je veux faire
1-DbGrid.columns(i). button=true dans une cellule d'une dbgrid mais je ne sais pas comment declarer la liste de valeur

gaa179 · Answer

Salut,

Il s'agit purement et simplement d'un bouton et non une liste déroulante. Si tu désire afficher les valeurs comme dans une liste déroulante, tu dois placer dans l'évènement ButonClick le code pour afficher un autre formulaire dans lequel tu fais apparaître tes données que tu pourras récupérées ou une liste déroulante.
Voici un exemple où pour une colonne je fais apparaître un checkbox et pour une autre un listbox.

Private Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
Dim Cpt As Integer

Select Case ColIndex
    Case 0 'Checkbox
        Check1.Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row) '+ DataGrid1.RowHeight
        Check1.Left = DataGrid1.Left + DataGrid1.Columns(ColIndex).Left
        ' Width and Height properties can be set a design time
        ' The width of the list does not have to be the same as the width of the grid column
        Check1.Width = DataGrid1.Columns(0).Width
        Check1.Height = 255
        Check1.Visible = True
        If Check1.Visible Then           If DataGrid1.Columns(0).Value "-1" Then Check1.Value 1           If DataGrid1.Columns(0).Value "0" Then Check1.Value 0
        End If
      
    Case 11 'Fournisseur
        List1.Clear
        If RsFournisseur.State = 1 Then RsFournisseur.Close
        
        'Pas de fournisseur        If MyRs!Id_Four1 0 And MyRs!Id_Four2 0 Then
             Cpt = 0
             With RsFournisseur
                .Open "Select * From Fournisseur Order By Nom", MyDedCn, adOpenStatic, adLockReadOnly
                Do While Not .EOF
                    List1.AddItem !Nom, Cpt
                    Cpt = Cpt + 1
                    .MoveNext
                Loop
            End With
        End If
        
        ' 2 fournisseurs définis
        If MyRs!Id_Four1 > 0 And MyRs!Id_Four2 > 0 Then
            Cpt = 0
             With RsFournisseur                .Open "Select * From Fournisseur Where Id_Four " & MyRs!Id_Four1 & " Or Id_four " & MyRs!Id_Four2 & " Order By Nom", MyDedCn, adOpenStatic, adLockReadOnly
                .MoveFirst
                Do While Not .EOF
                    List1.AddItem !Nom, Cpt
                    Cpt = Cpt + 1
                    .MoveNext
                Loop
            End With
        End If
        
        'Un seul fournisseur
        If MyRs!Id_Four1 > 0 And MyRs!Id_Four2 = 0 Then
            RsFournisseur.Open "select * from fournisseur where Id_Four = '" & MyRs!Id_Four1 & "'", MyDedCn
            List1.AddItem RsFournisseur!Nom, 0
        End If
        
        'Affichage du listbox
        List1.Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row) + DataGrid1.RowHeight
        List1.Left = DataGrid1.Left + DataGrid1.Columns(ColIndex).Left
        List1.Width = DataGrid1.Columns(ColIndex).Width
        List1.Height = 1440
        List1.Visible = True
        'If List1.Visible Then
        '   List1.ListIndex = 0
        'End If

End Select

RsFournisseur.Filter = adFilterNone
End Sub

Remarque:
Dans le cas du list box, les valeurs de la liste varie en fonction de certaine données de la BD

A+

dibouched · Answer

j'ai esssauer ce si et j'ai reessi a apparaitr la liste comme je vais 
il reste la selection des bvaleurs 
merci

dibouched · Answer

comment choisir  la valeur et comment faire disparaitre la liste

gaa179 · Answer

Pour récupérer la valeur sélectionnée, sur l'évènement click de ta liste déroulante, tu transfert la valeur dans ton recordset via une commande update sur le recordset qui est utilisé par ton datagrid (tu sera placé directement sur le bon enregistrement pour faire la mise à jour). Ensuite du rend invisible la liste déroulante.

Si tu veux le code pour un checkbox, laisse-moi ton adresse e-mail pour t'envoyer le code du formulaire.

A+

dibouched · Answer

merci pour votre aide voila mon mail 
ched_kh@yahoo.fr
mais dite mùoi j'ai deja trouive la solution de la liste mais comment faire maintenant pour obliger l'utilisateur de ne saisir que de la liste merci

gaa179 · Answer

Au fait le code que j'ai est en VB6 (j'avais oublié que ton apllic est vb.net). Es-tu toujours intéressé?
Pour empecher la saisie, il existe en vb6 (tjs) une propriét locked qui permet de bloquer la saisie.

A+

dibouched · Answer

je ne pas compris ce que tu vai  dire 
je travaille avec vb6 et je suis encore intersse 
le code que j'ai utilisé ce ne pas la votre puisque je n'utilise pas une base de donne 
j'ai pris l'idé et j'ai reessi a le faire 
il reste ce controle 
meme pour les combobox je vais faire la meme chose 
a+

saidhm · Answer

said.hm

dibouched · Answer

mais je te pas compris tu n'as aps post&#233; un msg


  

DiBou 
email:dibouched@yahoo.fr

liste dans datagrid

9 réponses

Discussions similaires