Archief - Vb.net/mySQL : Probleem met datagridboolcolumn

Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.

EnZyMeX

Legacy Member
Hoi
Vraagje
IK haal gegevens van een mySQL server en bewerk deze met deze functie :

Public Sub veranderValues()

Dim intteller As Integer
Dim k As Integer
Dim dSet As New DataSet

Dim inthelp As Integer


dSet = getEmployees()
inthelp = dSet.Tables("employees").Rows.Count - 1
dSet.Tables("employees").Columns.Add("aanwezig")
If Not maxvalue = -1 Then
For k = 0 To inthelp
For intteller = 0 To maxvalue

If AanwezigTable.Rows(intteller).Item(0) = dSet.Tables("employees").Rows(k).Item(0) Then
dSet.Tables("employees").Rows(k).Item("aanwezig") = True
Exit For
Else
dSet.Tables("employees").Rows(k).Item("aanwezig") = False
End If

Next intteller

Next k
Else
For k = 0 To inthelp
dSet.Tables("employees").Rows(k).Item("aanwezig") = False
Next k
End If
maxvalue = dSet.Tables("employees").Rows.Count - 1
maakKolommen(dgrAanwezigHeden, dSet)
End Sub

Dus men dataset is gevuld
Daarna maak ik met maakKolommen men datagrid op

Public Function maakKolommen(ByRef datagrid As DataGrid, ByVal dSet As DataSet)
'datagrid.TableStyles.Clear()

Dim grdId As New DataGridTextBoxColumn
Dim grdName As New DataGridTextBoxColumn
Dim grdAanwezig As New DataGridBoolColumn
Dim grdTableStyle As New DataGridTableStyle
'=================================================================
'eerst maken we nieuwekolomgrids aan
'================================================================
With grdId
.Alignment = HorizontalAlignment.Left
.HeaderText = "Naam"
.Width = 10
.NullText = ""
.MappingName = "id"
.ReadOnly = True
End With

With grdName
.Alignment = HorizontalAlignment.Left
.HeaderText = "Naam"
.Width = 50
.NullText = ""
.ReadOnly = True

End With

With grdAanwezig
.Width = 10
.Alignment = HorizontalAlignment.Center
.HeaderText = "aanwezig"
.ReadOnly = False
.MappingName = "aanwezig"

End With


grdTableStyle.GridColumnStyles.Add(grdId)
grdTableStyle.GridColumnStyles.Add(grdName)
grdTableStyle.GridColumnStyles.Add(grdAanwezig)
datagrid.TableStyles.Add(grdTableStyle)
datagrid.SetDataBinding(dSet, "employees")
End Function

Ok werkt allemaal geen errors blabla
Maar als ik het programma run krijg ik gewoon 3 kollomen te zien waar nix van boolcolumn(zon kolom met vinkjes ;) ) bij te zien is

De breedte word niet aangepast , ook de headertext niet gewoon nix

Ik heb via debugging gekeken of ie in de juiste functie komt , de juiste dataset doorgeeft en de juiste datagrid doorgeeft!
Dit bleek allemaal te kloppen :(

Iemand die kan helpen ?? :eek: Dank U

EnZyMeX

Legacy Member
laat maar al gevonden
grdTableStyle.mappingname = "employees" :doh: :doh: :doh:
close maar
Het archief is een bevroren moment uit een vorige versie van dit forum, met andere regels en andere bazen. Deze posts weerspiegelen op geen enkele manier onze huidige ideeën, waarden of wereldbeelden en zijn op sommige plaatsen gecensureerd wegens ontoelaatbaar. Veel zijn in een andere tijdsgeest gemaakt, al dan niet ironisch - zoals in het ironische subforum Off-Topic - en zouden op dit moment niet meer gepost (mogen) worden. Toch bieden we dit archief nog graag aan als informatiedatabank en naslagwerk. Lees er hier meer over of start een gesprek met anderen.
Terug
Bovenaan