1. #1
    EnZyMeX's Avatar
    Registered
    01/08/04
    Location
    TurnhAwt
    Posts
    137
    iTrader
    0
    Mentioned
    0 Post(s)

    Vb.net/mySQL : Probleem met datagridboolcolumn

    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 ?? Dank U
    Last edited by EnZyMeX; 03-09-2004 at 10:46.
    no votes  

  2. #2
    EnZyMeX's Avatar
    Registered
    01/08/04
    Location
    TurnhAwt
    Posts
    137
    iTrader
    0
    Mentioned
    0 Post(s)
    laat maar al gevonden
    grdTableStyle.mappingname = "employees"
    close maar
    no votes  

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Log in

Log in