Discussion :

[Mvu]

Bonjour

avec le code ci-dessous, je souhaite rendre mon GridView1 visible au chargement de la page.

Code :

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

1
2
3
4
5
6
7
8
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load


        Dim bFld As BoundField = Nothing
        bFld.Visible = True
        GridView1.Columns.Add(bFld)
  
    End Sub

Mais la ligne en rouge déclenche l'erreur suivante:
La référence d'objet n'est pas définie à une instance d'un objet.

Pourquoi ?

[tomlev]

parce que bFld est null (Nothing), tu lui as donné cette valeur juste au-dessus...

[Mvu]

Ok, mais si je supprime = Nothing, le problème reste le même

Et bFld is used before it has been assigned a value.A null reference exception could result at runtime.

[Mvu]

Voici mon nouveau code. Ne génère aucune erreur mais ne rélaise pas l'effet voulu sur mon GridView1

Code :

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

1
2
3
4
5
6
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
        Dim bFld As BoundField = New BoundField()
        bFld.Visible = False
        GridView1.Columns.Add(bFld)
    End Sub

[predalpha]

essaies de mettre ce code dans l'initialisation de la page et non dans le load ?

[Mvu]

Nada,change rien.
Mais est-ce que la ligne bFld.Visible = False est correctement écrite ?
J'ai aussi essayé bFld.Visible = "False" mais marche pas non plus.

[lutecefalco]

Et
GridView1.Columns(0).Controls.Add(bFld)

[Mvu]

Il n'aime pas non plus...

[Mvu]

Bo, j'ai réolu le problème aurement et plus avantageusement en ce qui me concerne. Je crée carrément mon GridView dans le codebehind.

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
Partial Class Default2
    Inherits System.Web.UI.Page
    Public pLang As String
 
    Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
        Dim ods As New ObjectDataSource
        Dim bf As BoundField = Nothing
        pLang = Request.QueryString("Lang")
 
        'on ne veut pas générer les colonnes automatiquement
        GridView1.AutoGenerateColumns = False
 
        If Not Page.IsPostBack Then
            If pLang = "Fr" Then
                bf = New BoundField
                bf.HeaderText = "categoryDescFr"
                bf.DataField = "categoryDescFr"
                GridView1.Columns.Add(bf)
                bf.ItemStyle.Width = New Unit("140", UnitType.Pixel)
 
                bf = New BoundField
                GridView1.Columns.Add(bf)
 
            Else
                bf = New BoundField
                bf.HeaderText = "categoryDescNl"
                bf.DataField = "categoryDescNl"
                GridView1.Columns.Add(bf)
                bf.ItemStyle.Width = New Unit("540", UnitType.Pixel)
 
                bf = New BoundField
                GridView1.Columns.Add(bf)
            End If
        End If
 
    End Sub