Discussion :

[tonnebrre]

salut
j'ai une gridview lié avec une datatable
je cree des template par programmation et je les ajoute dans la grid
question : comment lier les controls de la template tel un textbox avec cette datatable par programmation ?
j'ai deja trouver la methode databinder.eval() mais ja n'ai pas reusi a l'utiliser
et merci d'avance

[Ramajb]

Salut, As tu définit l’événement Data binding sur ton contrôle? Pourrais-tu nous montrer le code?
Merci

[tonnebrre]

definition de la template

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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
 
Imports Microsoft.VisualBasic
Imports System.Data.SqlClient
Imports System.Data
 
Public Class GridTemplate
    Implements ITemplate
    Dim templateType As ListItemType
    Dim database, Table, column As String
 
    Sub New(ByVal type As ListItemType, ByVal DataBaseName As String, ByVal TableName As String, ByVal ColumnName As String)
        templateType = type
        Table = TableName
        column = ColumnName
        database = DataBaseName
    End Sub
 
    ' retourne true si le champs et une clé étrangère '
    Private Function IsForeignKey(ByVal DatabaseName As String, ByVal TableName As String, ByVal ColumnName As String) As Boolean
        Dim con As New SqlConnection("server=localhost;database=" & DatabaseName & ";integrated security=true;")
        Dim cmd As New SqlCommand
        cmd.Connection = con
        cmd.CommandType = Data.CommandType.StoredProcedure
        cmd.CommandText = "IsForeignKey"
        With cmd.Parameters
            .AddWithValue("@TableName", TableName)
            .AddWithValue("@ColumnName", ColumnName)
            Dim p As New SqlParameter("@return", Data.SqlDbType.Bit)
            p.Direction = Data.ParameterDirection.ReturnValue
            .Add(p)
        End With
        Try
            con.Open()
            cmd.ExecuteScalar()
            con.Close()
        Catch ex As Exception
            MsgBox("IsForeignKey : erreur : " & vbNewLine & ex.Message)
            Return Nothing
        End Try
        Return cmd.Parameters("@return").Value
    End Function
 
    Sub InstantiateIn(ByVal container As Control) Implements ITemplate.InstantiateIn
        Dim lc As New Literal()
        Select Case templateType
            Case ListItemType.Header
                lc.Text = "h"
                container.Controls.Add(lc)
            Case ListItemType.Item
                Dim lbl As New Label
                lbl.ID = "lbl" & column
                lbl.Text = "<%# Eval(""LIBENTITE"") %>"
                container.Controls.Add(lbl)
            Case ListItemType.EditItem
                If Me.IsForeignKey(database, Table, column) Then
                    Dim ddl As New DropDownList
                    ddl.ID = "ddl" & column
                    container.Controls.Add(ddl)
                Else
                    Dim txt As New TextBox()
                    txt.ID = "txt" & column
                    txt.Text = ""
                    container.Controls.Add(txt)
                End If
            Case ListItemType.Footer
                lc.Text = "f"
                container.Controls.Add(lc)
        End Select
    End Sub
 
End Class

code de remplissage de la gridview

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
 
 Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim con As New SqlConnection("server=localhost;database=rhexpress;integrated security=true;")
        Dim cmd As New SqlCommand
        Dim dt As New DataTable
        Dim da As New SqlDataAdapter(cmd)
        cmd.Connection = con
        cmd.CommandType = Data.CommandType.Text
        cmd.CommandText = "SELECT * FROM entite"
        con.Open()
        da.Fill(dt)
        con.Close()
 
        GridView1.DataSource = dt
 
        For Each col As DataColumn In dt.Columns
            Dim dgvCol As New TemplateField
            dgvCol.HeaderText = col.ColumnName
            dgvCol.ItemTemplate = New GridTemplate(ListItemType.EditItem, "rhexpress", "entite", col.ColumnName)
            GridView1.Columns.Add(dgvCol)
        Next
        GridView1.DataBind()
    End Sub

et merci de votre attention

[Ramajb]

Enlève

Code :

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

lbl.Text = "<%# Eval(""LIBENTITE"") %>"

et à sa place , attache le à l’événement DataBinding

Code :

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

lbl .DataBinding += new EventHandler(lbl_DataBinding);

Maintenant, lors du déclenchement du databing, tu as la possibilité de lier la valeur souhaité a ton label

Code :

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

1
2
3
4
5
6
7
8
9
10
void tb1_DataBinding(object sender, EventArgs e)
 {
        Label lbl_1 = (Label)sender;
        GridViewRow container = (GridViewRow)lbl_1.NamingContainer;
        object myValue = DataBinder.Eval(container.DataItem, Nom_du_colonne);
        if (dataValue != DBNull.Value)
        {
            lbl.Text = myValue.ToString();
        }
 }

Fais moi savoir si tu as des commentaires.
+

[tonnebrre]

merci infiniment
je mesuis inspirer de votre solution et d'un autre tuto et ça a marché

le tuto

j'ai remplacé

Code :

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

lbl .DataBinding += new EventHandler(lbl_DataBinding);

par

Code :

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

AddHandler lbl.DataBinding, AddressOf lbl_DataBingding

car la 1 ère a causée un problème

[Ramajb]

cool . Une dernière chose, si possible, ne met pas directement ton contrôle dans le container, a la place de ce dernier, utilise un PlaceHolder qui pourra être a son tour ajouter dans le container.

Merci.