Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1651 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VB .NET] DataGrid et Checkboxes

 
 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VB .NET] DataGrid et Checkboxes

n°1077978
Arwenalia
Posté le 10-05-2005 à 15:51:32  profilanswer
 

J'ai de nouveau un petit souci avec les Datagrid...
J'essaie d'avoir trois colonnes contenant des checkboxes, juste pas de soucis...
J'ai regardé un exemple sur le site de microsoft... et j'ai codé une solution qui est sensée marcher...  
Comme vous vous en doutez ca marche pas... Mais j'ai pas d'erreur lors de la construction du Datagrid...  
 
Mais j'ai une NullReferenceException sur J.ShowDialog(). :??: Du coup, j'ai passé mon code au crible et je trouve pas...  
 
Merci d'avance pour l'aide... Si quelqu'un a une idée...

mood
Publicité
Posté le 10-05-2005 à 15:51:32  profilanswer
 

n°1077985
FlorentG
Posté le 10-05-2005 à 15:53:20  profilanswer
 

Ce serait plus simple si tu donnais le bout de code qui lance le nullmachinexception :)

n°1078039
Arwenalia
Posté le 10-05-2005 à 16:11:53  profilanswer
 

Ben j'osais pas parce qu'il est super long ... Enfin je vais essayer de condenser
 
 

Code :
  1. Public Sub New()
  2.         MyBase.New()
  3.         Try
  4.             'Cet appel est requis par le Concepteur Windows Form.
  5.             InitializeComponent()
  7.             'Ajoutez une initialisation quelconque après l'appel InitializeComponent()
  9.             AutreTable = New DataTable("SurDossiers" )
  10.             AutreTable.Columns.Add(New DataColumn("Dossier" ))
  11.             AutreTable.Columns.Add(New DataColumn("Nom" ))
  12.             AutreTable.Columns.Add(New DataColumn("Prenom" ))
  14.             AutreTable.Columns.Add(New DataColumn("Admis", GetType(Boolean)))
  15.             AutreTable.Columns.Add(New DataColumn("Liste", GetType(Boolean)))
  16.             AutreTable.Columns.Add(New DataColumn("Refuse", GetType(Boolean)))
  17.             Dim ts As New DataGridTableStyle
  18.             ts.MappingName = "SurDossiers"
  19.             Dim AutreSet As DataSet = New DataSet("myDataSet" )
  20.             AutreSet.Tables.Add(AutreTable)
  21.             Me.GridNote.SetDataBinding(AutreSet, "SurDossiers" )
  22.             AddData()
  24.             Dim dgtbc As DataGridTextBoxColumn = New DataGridTextBoxColumn
  25.             dgtbc.MappingName = "Dossier"
  26.             dgtbc.HeaderText = "Dossier"
  27.             dgtbc.Width = 70
  28.             ts.GridColumnStyles.Add(dgtbc)
  30.             dgtbc = New DataGridTextBoxColumn
  31.             dgtbc.MappingName = "Nom"
  32.             dgtbc.HeaderText = "Nom"
  33.             dgtbc.Width = 150
  34.             ts.GridColumnStyles.Add(dgtbc)
  36.             dgtbc = New DataGridTextBoxColumn
  37.             dgtbc.MappingName = "Prenom"
  38.             dgtbc.HeaderText = "Prenom"
  39.             dgtbc.Width = 150
  40.             ts.GridColumnStyles.Add(dgtbc)
  42.             Dim db As DataGridBoolColumnInherit = New DataGridBoolColumnInherit
  43.             db.HeaderText = "Admis"
  44.             db.TrueValue = "Admis"
  45.             db.Width = 70
  46.             db.MappingName = "Admis"
  47.             ts.GridColumnStyles.Add(db)
  49.             db = New DataGridBoolColumnInherit
  50.             db.HeaderText = "Liste"
  51.             db.TrueValue = "Liste"
  52.             db.Width = 70
  53.             db.MappingName = "Liste"
  54.             ts.GridColumnStyles.Add(db)
  56.             db = New DataGridBoolColumnInherit
  57.             db.HeaderText = "Refuse"
  58.             db.TrueValue = "Refuse"
  59.             db.Width = 70
  60.             db.MappingName = "Refuse"
  61.             ts.GridColumnStyles.Add(db)
  63.             ts.AllowSorting = False
  64.             ts.AlternatingBackColor = Color.AntiqueWhite
  65.             ts.BackColor = Color.White
  66.             ts.ForeColor = Color.Black
  67.             ts.GridLineColor = Color.Gainsboro
  68.             ts.HeaderBackColor = Color.Gainsboro
  69.             ts.SelectionBackColor = Color.Lavender
  70.             ts.ForeColor = Color.Black
  72.             Me.GridNote.TableStyles.Add(ts)
  73.         Catch exc As Exception
  74.             Console.WriteLine(exc.ToString)
  75.         End Try
  77.     End Sub
  79.  
  80.     Private Sub AddData()
  82.         Dim dRow As DataRow
  83.         Dim Table As DataTable
  84.         Dim RowNumber As Integer
  85.         Table = Connexion.ConnexionSQL("SELECT Candidats.Dossier, Candidats.Nom, Candidats.Prenom " & _
  86.                                        " FROM Candidats, SurDossiers " & _
  87.                                        " WHERE SurDossiers.Dossier = Candidats.Dossier " & _
  88.                                        " AND (SurDossiers.Valide = 'Validé')" & _
  89.                                        " ORDER BY Nom,Prenom", "SurDossiers" )
  90.         While RowNumber < Table.Rows.Count
  92.             dRow = AutreTable.NewRow()
  93.             With Table.Rows(RowNumber)
  94.                 dRow("Dossier" ) = .Item("Dossier" )
  95.                 dRow("Nom" ) = .Item("Nom" )
  96.                 dRow("Prenom" ) = .Item("Prenom" )
  97.                 dRow("Admis" ) = 0
  98.                 dRow("Liste" ) = 0
  99.                 dRow("Refuse" ) = 0
  100.                 AutreTable.Rows.Add(dRow)
  101.             End With
  102.             RowNumber += 1
  103.         End While
  104.         AutreTable.AcceptChanges()
  106.     End Sub


 
Voilà ca ressemble a ca ma construction du Datagrid... Mais j'ai pas d'erreur la-dessus bien ca vienne de là...
Comme je l'ai dit j'ai une erreur sur le ShowDialog... Mais quand je mets en commentaires tout ce qui concerne les 3 colonnes checkbox tout va bien...  :pt1cable:


Message édité par Arwenalia le 10-05-2005 à 16:13:18
n°1078154
Arwenalia
Posté le 10-05-2005 à 17:10:06  profilanswer
 

Après une journée, j'ai trouvé d'ou ça vient... En gros il me faut pas que le Datagrid soit ajouté dans le mode Design, il ne faut le gérer que par la programmation.. Voilà, j'ai quelques soucis de présentation maintenant mais bon ca devrait aller...
 
Ben non en fait ca vient juste du fait de ça
 
Dim ts As New DataGridTableStyle  
ts.MappingName = "SurDossiers" <- J'utilise le meme nom que pour le dataTable et il aime pas... Du coup, je peux pas mettre bien mes colonnes a la bonne taille... Rrrrrrrrrr Le truc c que dans l'exemple ca marche bien... :??:  


Message édité par Arwenalia le 10-05-2005 à 17:25:22

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VB .NET] DataGrid et Checkboxes

 

Sujets relatifs
[C# .NET] Classes, héritage, 3D[Visual C++ .NET] Conversion String -> const char *
Manipulation de fichier XML complexe et DataGrid[RESOLU][C# .NET] Créer des objets Windows Form par le code source
Lire une feuille excel .xls depuis VB.NET[VB.NET] Déployer un exe sur une autre machine [RÉSOLU]
J'arrive pas à affiche ma table sous datagridproblème de remplissage d'une datagrid
Passer de VS.Net 2003 à VS.Net 2005 peut-il se faire gratuitement?Winforms - Datagrid - associer une formule a une colonne
Plus de sujets relatifs à : [VB .NET] DataGrid et Checkboxes

Forum MesDiscussions.Net, Version 2010.2
(c) 2000-2011 Doctissimo
Page générée en 0.071 secondes

Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR