[VB .NET] DataGrid et Checkboxes

DataGrid et Checkboxes [VB .NET] - VB/VBA/VBS - Programmation

Marsh Posté le 10-05-2005 à 15:51:32    

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...

Reply

Marsh Posté le 10-05-2005 à 15:51:32   

Reply

Marsh Posté le 10-05-2005 à 15:53:20    

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

Reply

Marsh Posté le 10-05-2005 à 16:11:53    

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
Reply

Marsh Posté le 10-05-2005 à 17:10:06    

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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed