Discussion :

[thierry007]

Est - il possible de lier un tableau 2 dim , avec un datagrid, si comment?
un petit bout de code serait le bien venu

Merci

[sovo]

Est - il possible de lier un tableau 2 dim , avec un datagrid, si comment?

Oui il est tout a fait possible de le faire. Mais il faut evidement savoir ce que tu veux faire pour pouvoir vraiment te proposer un code. Ou alors si tu as commencer un toi meme (et ce serais plus facile pour toi comme pour nous) fait nous voir.

[thierry007]

Non encore rien de fait.
Le but :

Dimentionner un tableau / structure du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim MonTableau1(200,10)
dim MonTableau2(200,35)
dim MonTableau3(200,15)

le lier a une datagrid ( chaque field a une colonne/ligne )

En fait je cherche une idée ou solution pour remplir une datagrid et effectuer des calculs dedans ( genre saisie d'un bon de commande ou facture ), mais voyager dans la datagrid avec les curseurs et dans la première colonne mettre du code pour aller chercher des infos dans une base de données

[sovo]

En fait je cherche une idée ou solution pour remplir une datagrid et effectuer des calculs dedans ( genre saisie d'un bon de commande ou facture ), mais voyager dans la datagrid avec les curseurs et dans la première colonne mettre du code pour aller chercher des infos dans une base de données

Pourquoi passe par un tableau (encore de la memoire d'utiliser inutilement) alors que tu peux le faire directement depuis le datagrid ??

[thierry007]

comment le faire alors

il faut qu'il y ai un nombres ligne vides existante dans le datagrid, pour ne pas passer par l'ajout de ligne

Une idée

[sovo]

il faut qu'il y ai un nombres ligne vides existante dans le datagrid, pour ne pas passer par l'ajout de ligne

Bon la j'ai l'impression d'etre aller un peut trop vite.

Dit moi que veux tu faire exactement. Est que tu veux pourvoir ajouter "manuellement" une nouvelle ligne dans le DataGrid, ou alors modifier une ligne du DataGrid ??

[thierry007]

comme j'ai écri plus haut, le but serait d'avoir une datagrid dans laquelle je puisses ajouter / mofifier des données sans devoir aller cliqué sur un bouton ajouter : en fait avoir une centaine d'enregistrement vide que peux modifier a ma guise . l'exemple le plus proche de ce que je veux faire est une feuille excel, mais mois cela serait limité a 10 col sur 100 ligne. lorsque j'ai mis des données dans la grille je valide et transfert les records dans une db centralisée

suis-je assez clair?

[sovo]

Pour ce que tu veux faire au vu de ceci

je puisses ajouter / mofifier des données sans devoir aller cliqué sur un bouton ajouter : en fait avoir une centaine d'enregistrement vide que peux modifier a ma guise . l'exemple le plus proche de ce que je veux faire est une feuille excel

je te conseille d'utiliser le MSFlexGrid (Microsoft FlexGrid Control 6.0, MSFLXGRD.OCX) . Avec celui la ce sera possible et meme plus facile. Je doute que cela soit possible a faire avec le DataGrid.

Si tu es pret pour cette nouvelle orientation je peux te donne un coup de main avec du code et des orientations.

[Delbeke]

c'est possible, mais c'est tres tres chiant à gérer
voir dans l'aide en ligne les évenements
-UnboundAddData
-UnboundDeleteRow
-UnboundReadData
-UnboundWriteData
ansi que la proprièté
-DataMode

[sovo]

-UnboundAddData
-UnboundDeleteRow
-UnboundReadData
-UnboundWriteData
ansi que la proprièté
-DataMode

Je ne savais pas que ces evenements et propriete existaient. Et d'ailleur je n'arrive pas a y avoir acces. J'utilise le Microsoft DataGrid control 6.0 (OLEDB) (MSDAGRD.OCX)

la vraiment je croit que

c'est tres tres chiant à gérer

[jmfmarques]

Bonjour Sovo,

DBGrid et DataGrid sont deux contrôles bien différents.
Les événements et propriété signalés par DelBeke existent bien et concernent le contrôle DBGrid.

Ceci étant dit, je salue DelBeke, qui m'a également appris une chose que j'ignorais, habitué moi aussi à utiliser le contrôle DataGrid..
On en apprend à tout âge.... Merci DelBeke

[sovo]

Bonjour JMF,

Ouf j'ai eu chaud. Je ne savais qu'il utilisais le DBGrid (ne l'ayant pas fait). Et puis je n'ai jamais utilise ce control donc... Tout comme toi j'utilisais le DataGrid, mais depuis quelque semaine le MSFlexGrid de seduit de par sa flexibilite.

[Delbeke]

Un prété pourr un rendu jmf tu m'as bien apris le TextMatrix
Bonne soirée a toi.

[thierry007]

Pour ce que tu veux faire au vu de ceci



je te conseille d'utiliser le MSFlexGrid (Microsoft FlexGrid Control 6.0, MSFLXGRD.OCX) . Avec celui la ce sera possible et meme plus facile. Je doute que cela soit possible a faire avec le DataGrid.

Si tu es pret pour cette nouvelle orientation je peux te donne un coup de main avec du code et des orientations.

La je suis preneur si tu as un bout de code
Il faut savoir que dans l'application que je veux développer je vais travailler en Terminal Server, donc l'appli va tourner sur le serveur, c'est pour cela que je veux effectuer les opération de saisie / modif en mémoire, puis seulement les envoyées dans la db générale ( ou une autre idée )

[sovo]

Bon voila.

mais mois cela serait limité a 10 col sur 100 ligne

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
'MSF est le controle MSFlexGrid


MSF.FixedCols = 0
MSF.FixedRows = 1

MSF.Rows=101   'Pour creer 100 ligne vide dans ton MSFlexGrid
MSF.Cols=10     'Pour creer 10 Colone vide dans ton MSFlexGrid 

'Pour remplir le MSFlexGrid : La propriete TextMatrix
Dim FlexRow as Integer
Dim FlexCol as Integer

For FlexRow = 1 to MSF.Rows - 1
     For FlexCol = 0 to MSF.Cols -1
          MSF.TextMatrix(FlexRow,FlexCol) = "Cellule " & FlexRow & FlexCol
     Next
Next

Comme tu l'aura remarque la propriete TextMatrix est la solution a ton probleme (Un merci implicite a JMF, car c grace a lui que j'ai fait la decouverte de cette propriete de du MSFlexGrid qui est super genial).

[thierry007]

Test effectuer, mais je ne peux écrire directement dans une cellule, je peux la remplire dans le code mais pas modifier une cellule directement dans l'MSF quand le prg est executé

Ou alors y qq chose que je ne saisis pas

[sovo]

mais pas modifier une cellule directement dans l'MSF quand le prg est executé

Si tu veux modifier le contenu d'une cellule alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
'Pour mettre "www.developpez.com" dans la cellule (59,6 : Ligne, Colone)
MSF.TextMatrix(59,6) = "www.developpez.com"

PS: tout ceci ce passe en mode Execution

[thierry007]

Je crois ne pas m'être bien exprimé:

j'execute le programme , il m'affiche la grille, je click sur une cellule et je veux la modifier , ou mettre qq chose dedans

oups , sa marche pas

[ProgElecT]

Peut être pas la meilleur solution mais

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
Private Sub Form_Load()
 TextEntrer.Height = MSFlexGrid1.CellHeight
End Sub
Private Sub MSFlexGrid1_RowColChange()
If MSFlexGrid1.Row <> 0 Then
 TextEntrer.Left = MSFlexGrid1.Left + MSFlexGrid1.ColPos(MSFlexGrid1.Col) + 30
 TextEntrer.Top = MSFlexGrid1.Top + MSFlexGrid1.RowPos(MSFlexGrid1.Row) + 15
 TextEntrer.Width = MSFlexGrid1.CellWidth + 15
 TextEntrer = MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col)
 TextEntrer.SelStart = Len(TextEntrer)
 TextEntrer.Visible = True: TextEntrer.SetFocus
End If
End Sub
Private Sub TextEntrer_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
 MSFlexGrid1.TextMatrix(MSFlexGrid1.Row, MSFlexGrid1.Col) = TextEntrer
 TextEntrer.Visible = False
End If
If KeyAscii = 27 Then TextEntrer.Visible = False
End Sub

TextEntrer > TextBox Appearance = 0 (Flat), Multiline = False

[sovo]

La je ne croit pas qu'il ne sera pas possible de passer par les propriete.

Voila comment je fait ca

Soit tu passe par un InputBox qui recupere le texte que tu veux entrer et le fait a ta place

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Dim col as integer, row as integer
Private Sub MSF_Click()         'ou DblClick c comme tu veux
    col = MSF.MouseCol
    row = MSF.MouseRow
 
    MSF.TextMatrix(row, col) = InputBox("Entrer un texte", "Text")
End Sub

Soit tu le fait losrque l'utilisateur entre au clavier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub MSF_KeyPress(KeyAscii As Integer)
    col = MSF.MouseCol
    row = MSF.MouseRow
 
    MSF.TextMatrix(row, col) = MSF.TextMatrix(row, col) + Chr(KeyAscii)
End Sub

Perso j'utilise la premiere methode (sauf que j'utilise plutot une form personalise) bien que la deuxieme est plus proche de la logique.