[VB.NET] Ajout d'une CheckBox à un DataSet

Version imprimable

Bonjour,
Qu'est ce qui ne va pas dans ce code ??
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Insertcol.ColumnName = "Insert" Insertcol.DataType = System.Type.GetType("System.Boolean") m_dsFields.Tables(0).Columns.Add(Insertcol) For iCntr As Integer = 0 To m_dsFields.Tables(0).Rows.Count - 1 Select Case m_dsFields.Tables(0).Rows(iCntr).Item("Actions") Case 0 m_dsFields.Tables(0).Rows(iCntr).Item("Select").checked = True Case 1 m_dsFields.Tables(0).Rows(iCntr).Item("Insert").value = True end select next
Mon dataset est correctement initialise et remplit avant que l'ajout de ma colonne booleen.
Mes colonnes select et insert sont ajoutees au dataset de la meme maniere. Et pourtant, lorsque la ligne Case 1 est appellee, j'ai l'erreur :

"Field 'value' of type 'DBNull' is 'ReadOnly'."

Pourquoi ?

Merci

12/04/2005, 10h36
del-dongo

pkoi est ce que accede à insert avec la propriété value et à select avec la propriété checked..? Elles ne sont pas toutes les 2 de types boolean..?
J'ai déja eu pas mal de problème avec des colonnes de types boolean attention au valeurs null...essaie d'attribuer une defaultvalue à ta colonne que tu met à false par exemple....
12/04/2005, 10h38
graphicsxp

oui, desole, ca devrait etre .value pour les deux.
c'est ce que j'essaye de faire, mettre une valeur en fonction d'un autre truc.
12/04/2005, 10h42
graphicsxp

je viens d'essayer ca :

Code:

m_dsFields.Tables(0).Columns("Selectcol").DefaultValue = False

apres avoir ajoute ma colonne, mais j'ai ce message d'erreur :

Object reference not set to an instance of an object
12/04/2005, 10h50
del-dongo

heu la je comprends plus c'est select ou selectcol le nom de ta colonne...je crois que tu t'es trompé...
12/04/2005, 10h53
graphicsxp

ha oui, dsl je me suis trompe.
Bon cette ligne fonctionne du coup. Mais j'obtiens tjrs la meme erreur qd j'essaye d'appeller .value = true
12/04/2005, 11h01
del-dongo

ben essaie de mettre à la construction de la colonne sa propriété readonly à false mais à priori elle l'est par défaut...

j'ai change ma boucle comme ca :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'fill the Select, Insert & Update columns
            Dim iCntr As Integer = 0
            For Each dr As DataRow In m_dsFields.Tables(0).Rows
                Select Case m_dsFields.Tables(0).Rows(iCntr).Item("Actions")
                    Case 0
                        dr("Select") = True
                    Case 1
                        dr("Insert") = True
                    Case 2
                        dr("Update") = True
                    Case 3
                    Case 5
                    Case 6
                    Case 7
                        iCntr += 1
                End Select
            Next

et maintenant ca fonctionne.... va comprendre...

Par contre maintenant j'ai un probleme avec ma datagrid :(
Je fais ca :

Code:

1
2
3
4
5
6
7
  Dim SelectCol As New BooleanColumn("Select", "Select")
                Dim InsertCol As New BooleanColumn("Insert", "Insert")
                Dim UpdateCol As New BooleanColumn("Update", "Update")
 
                dgFields.Columns.Items.Add(SelectCol)
                dgFields.Columns.Items.Add(InsertCol)
                dgFields.Columns.Items.Add(UpdateCol)

Et j'obtiens l'erreur :

Insert is neither a DataColumn nor a DataRelation for table Table0.

(des fois il se plaint de Select aussi...)
Et je ne sais pas exactement sur quelle ligne ca plante.

12/04/2005, 11h13
del-dongo

es tu sur que tu te sert de l'intellisense parce que je vois plusieurs pb...je crois tout simplement que pour ton premier pb, il n'y a pas de propriété value
pour un item et pour ton second problème ce n'est pas une datagrid DataGridBoolColumn qu'il te faut...?
12/04/2005, 11h25
graphicsxp

non j'utilise une datagrid personalisee, pas celle microsoft
J'ai trouve mon pb: il n'y a pas de colonnes "Select", "Insert" ou "Update" dans le dataset que je passe a mon datagrid. Bizarre vu que je les ai ajoute.
Je vais voir ca avec le debugger
@++
12/04/2005, 11h31
graphicsxp

bon j'ai resolu mon pb. Merci pour l'aide :wink: