calculs sur une cellule d'un gridview

Version imprimable

22/10/2010, 09h17
JCMANSION

calculs sur une cellule d'un gridview

Bonjour

Est-ce possible de remplir un gridview dont le contenu de la cellule serait un calcul avec des chiffres issus de deux tables différentes ?
Exemple premier chiffre = Nbre.Table1, le 2éme Nbre.Table2, le résultat à afficher dans le cellule = (Nbre.Table2/Nbre.Table1)*100
Merci pour vos réponses
JCM
22/10/2010, 09h49
ostenhard

Bonjour,

Ce n'est pas possible sur la datagridview mais c'est faisable sur la datatable (si biensur tu utilises une datatabe comme source de données)
22/10/2010, 11h39
JCMANSION

Je ne connais pas le DataTable, j'ai essayé d'en créer un, mais je ne vois pas bien comment cela se présente à l'affichage : comme un gridview ?
Est-ce qu'il serait plus simple d'ajouter dynamiquement une ligne au gridview, de procéder aux calculs par une procédure et d'imputer le résultat à la cellule de cette nouvelle ligne
JCM
22/10/2010, 11h55
ostenhard

J'ai été un peu trop vite.

Donne nous plus de détail sur ce que tu as fait.

Tu utilises une gridview pour afficher tes résultats, comment communiques-tu les résultats (données) à ta gridview ?

Edit : une datatable n'a pas de représentation graphique, c'est un objet conteneur de données.
22/10/2010, 15h20
JCMANSION

Par une requete SQL et DataBind
22/10/2010, 15h39
ostenhard

Et avec du code ?
22/10/2010, 16h15
JCMANSION

Je n'ai pas fait de code car tu m'avais dit que c'était pas possible
Et très honnètement je ne sais pas écrire ce type de requete
22/10/2010, 16h20
ostenhard

Je disais du code détaillant ta récupération de données et le binding !
22/10/2010, 17h28
Ramajb

Citation:

Envoyé par JCMANSION

Bonjour

Est-ce possible de remplir un gridview dont le contenu de la cellule serait un calcul avec des chiffres issus de deux tables différentes ?
Exemple premier chiffre = Nbre.Table1, le 2éme Nbre.Table2, le résultat à afficher dans le cellule = (Nbre.Table2/Nbre.Table1)*100
Merci pour vos réponses
JCM

C'est possible. Mais avant de te donner quelques idées, il faut que tu nous dise s'il y a une relation entre les deux table ou pas.
25/10/2010, 10h55
JCMANSION

Oui, elles ont un champs commun Tab1.designe et Tab2.designe
Est-cela ta question ?

Tu peux utiliser SqlDatasource pour peupler le gridview. La propriété SelectCommand remonte les données en faisant un calcul a la volée. Ensuite le champ sélectionné sera bindé avec leur colonne correspondante.

Code:

1
2
3
4
5
            <asp:SqlDataSource ID="SqlDataSource1" runat="server"
             ConnectionString="<%$ .......... %>"
              SelectCommand="select Nbre.Table1 , Nbre.Table2, (Nbre.Table2/Nbre.Table1)*100 as Moyenne from Table1
              inner join Table2 on Tab1.designe=Tab2.designe"
              </asp:SqlDataSource>

Gridview bindé:

Code:

1
2
3
4
5
6
7
8
9
10
11
 <asp:GridView ID="GridView1" runat="server" 
           AutoGenerateColumns="False"
            DataSourceID="SqlDataSource1" 
            <Columns>
                <asp:BoundField DataField="Nbre.Table1" HeaderText="Nbre.Table1"
                    SortExpression="Nbre.Table1" />
                <asp:BoundField DataField="Nbre.Table2" HeaderText="Nbre.Table2"  
                    SortExpression="Nbre.Table2"/>
                <asp:BoundField DataField="Moyenne" HeaderText="Moyenne"
                    SortExpression="Moyenne"/> 
</asp:GridView>

En esperant t'avoir aidé

Merci pour tes réponses, mais j'ai un problème car je suis obligé de construire une requete pour remplir mon gridview (plutôt qu'un AccessDataSource). J'ai écris ce code mais cela beug

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub CalcuProg()
        'objet connection
        Using connexion As OleDbConnection = Me.DBConn
            Dim DBCommand As OleDbCommand
            'Objet Dataset
            Dim DSPageData As New DataSet
            'connection a la base de données
            DBCommand = New OleDbCommand("Select CA44.CAsemaine, CA44.CA2009, (CA44.CAsemaine/CA44.CA2009)*100 As ProgCA From CAsemaine, CA2009 Where CAsemaine.Lan= ? and CA2009.Lan=?", connexion)
            'objet DataAdapter
            Dim myOleDbDataAdapter As New OleDbDataAdapter(DBCommand)
            DBCommand.Parameters.AddWithValue("CAsemaine.Lan", Session("Lan"))
            DBCommand.Parameters.AddWithValue("CA2009.Lan", Session("Lan2009"))
            myOleDbDataAdapter.SelectCommand.Parameters("CAsemaine.Lan").Value = Session("Lan")
            myOleDbDataAdapter.Fill(DSPageData, "LePanier")
            GdvTotCA.DataSource = _
             DSPageData.Tables("LePanier").DefaultView
            GdvTotCA.DataBind()
        End Using
    End Sub

Et dans mon gridview

Code:

1
2
3
4
5
<asp:templatefield headertext="S44">
   <itemtemplate>
   <%#Eval("ProgCA ", "{0:p}")%>
   </itemtemplate>
</asp:templatefield>

D'autre part ce résultat correspond à une semaine et il m'en faut 53. Est-il possible de créer dynamiquement ces 52 colonnes, j'ai écris ce code mais cela beug également

Code:

1
2
3
4
5
6
7
8
9
10
Sub AjoutColonne()
    Session (“NewCol”)=S45    
Dim dt As New DataTable()
        dt.Columns.Add(New DataColumn Session (“NewCol”), GetType(String)))
        Dim dr As DataRow = dt.NewRow()
        dr Session (“NewCol”)) = ProgCA
        dt.Rows.Add(dr)
        Me.GdvTotCA.DataSource = dt
        Me.GdvTotCA.DataBind()
End Sub

Encore merci pour ton aide

27/10/2010, 09h42
ostenhard

Bonjour,

Tu dis que ça beug, quels sont les messages d'erreur ? Sans ça dur de t'aiguiller correctement
27/10/2010, 12h02
JCMANSION

Sur la requete, j'ai le message :

Citation:

Aucune valeur donnée pour un ou plusieurs paramètres requis

Pourtant les tables comportent les données
27/10/2010, 12h07
ostenhard
Tu as une erreur disant que la valeur de certains paramètres n'a pas été fournie c'est bien ça ?

Si oui le problème vient de là :
Code:

1 2 DBCommand.Parameters.AddWithValue("CAsemaine.Lan", Session("Lan")) DBCommand.Parameters.AddWithValue("CA2009.Lan", Session("Lan2009"))
27/10/2010, 13h52
topolino

Soit tu le fais dans ta requete sql, soit dans dans le rowdatabound de ton gridview.
27/10/2010, 14h56
JCMANSION

Je ne comprends pas dans

Code:

DBCommand.Parameters.AddWithValue("CAsemaine.Lan", Session("Lan"))

dans la CAsemaine il y a un champs Lan avec des enregistrements=2010 et la Session("Lan")="2010"

Code:

DBCommand.Parameters.AddWithValue("CA2009.Lan", Session("Lan2009"))

et dans la CA2009 il y a un champs Lan avec des enregistrements=2009 et la Session("Lan2009")="2009"

Je ne vois pas où est l'erreur

L'erreur obtenue dit-elle que la valeur de certains paramètres n'a pas été fournie.

Je dis que si c'est ça c'est que le problème vient très probablement des deux lignes citées.

MSDN dit :

Citation:

Le fournisseur OLE DB .NET ne prend pas en charge les paramètres nommés pour passer des paramètres à une instruction SQL ou à une procédure stockée appelée par un OleDbCommand si CommandType a la valeur Text.Dans ce cas, le point d'interrogation (?) l'espace réservé doit être utilisé.Par exemple :

SELECT * FROM Customers WHERE CustomerID = ?

Par conséquent, l'ordre dans lequel les objets OleDbParameter sont ajoutés à OleDbParameterCollection doit correspondre directement à la position de l'espace réservé du point d'interrogation pour le paramètre dans le texte de la commande.

Il faut donc ajouter les paramètres comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Public Sub CreateMyOleDbCommand(connection As OleDbConnection, _ queryString As String, parameters() As OleDbParameter) Dim command As New OleDbCommand(queryString, connection) command.CommandText = _ "SELECT CustomerID, CompanyName FROM Customers WHERE Country = ? AND City = ?" command.Parameters.Add(parameters) Dim j As Integer For j = 0 To command.Parameters.Count - 1 command.Parameters.Add(parameters(j)) Next j Dim message As String = "" Dim i As Integer For i = 0 To command.Parameters.Count - 1 message += command.Parameters(i).ToString() + ControlChars.Cr Next i Console.WriteLine(message) End Sub

Merci pour ta réponse, ce problème est réglé.
Il me reste celui de l'ajout dynamiquement de colonnes supplémentaires. Je veux ajouter 51 colonnes de S02 à S52.

identiques à cela :
Code:

1 2 3 4 5 <asp:templatefield headertext="S44"> <itemtemplate> <%#Eval("ProgCA ", "{0:p}")%> </itemtemplate> </asp:templatefield>
On m'a donné sur le forum un lien où j'ai trouvé ce code :
Code:

1 2 3 4 5 6 7 8 9 10 For Each r As DataRow In d.Rows Dim s As String = DirectCast(r.ItemArray(0), String) Dim maColonne As BoundField maColonne = New BoundField() maColonne.HeaderText = s maColonne.DataField = s 'mise à jour du select et de l'update GridView1.Columns.Add(maColonne) Next
Mais je ne vois pas ce qu'est le d de d.Rows et comment adapter le code pour obtenir des colonnes comme ci-dessus.

Peux-tu m'aider ? c'est le dernier problème qu'il mes reste à régler.
Merci pour ta réponse
JCM

28/10/2010, 09h13
ostenhard
Alors tu as une table nommée LePanier dans laquelle tu veux ajouter des colonnes c'est ça ? Enfin ça marche pour n'importe quelle table
Code:

1 2 3 4 5 for i as 2 to 52 Dim maColumn as new DataColumn(String.Format("S{0}", i.ToString("00")) maDataTable.Columns.Add(maColumn) next

Merci pour ton aide, car je suis pas tres doué

Si je place ce code
Code:

1 2 3 4 for i as 2 to 52 Dim maColumn as new DataColumn(String.Format("S{0}", i.ToString("00")) LePanier.Columns.Add(maColumn) next
apres
Code:

1 2 3 GdvTotCA.DataSource = _ DSPageData.Tables("LePanier").DefaultView GdvTotCA.DataBind()
J'ai un message

Citation:

'LePanier' n'est pas déclaré

Et comme ça ?

Code:

1
2
3
4
5
6
7
 
Dim maDataTable as DataTable = DSPageData.Tables("LePanier")
 
for i as 2 to 52
  Dim maColumn as new DataColumn(String.Format("S{0}", i.ToString("00"))
  maDataTable.Columns.Add(maColumn)
next

28/10/2010, 12h20
JCMANSION

Je n'ai pas beug, mais les colonnes 2 à 52 ne s'affichent pas
28/10/2010, 12h30
ostenhard

Arf oui, il faut également ajouté les données à ta gridview !
28/10/2010, 13h13
JCMANSION

et pour cela quel code ?
excuses-moi mais je suis complètement dépassé