checkbox i datagrid (windows form)

se http://www.knowdotnet.com/articles/kdngrid.html

se om følgende kan inspirerre dig

DataGridTableStyle dgts = new DataGridTableStyle();
dgts.MappingName = "Mapping";
DataGridTextBoxColumn dgtc = new DataGridTextBoxColumn();

dgts.GridColumnStyles.Add(new DataGridBoolColumn());
dgts.GridColumnStyles[0].MappingName = "useThis";
dgts.GridColumnStyles[0].HeaderText = "Use";
dgts.GridColumnStyles[0].Alignment = HorizontalAlignment.Left;
dgts.GridColumnStyles[0].Width = 30;
dgts.GridColumnStyles[0].NullText = string.Empty;
((DataGridBoolColumn)dgts.GridColumnStyles[0]).AllowNull = false;
datagrid.TableStyles.Clear();
datagrid.TableStyles.Add(dgts);

hvad er CGrid

jeg koder forresten i vb.net

repsak:

Hvad er det præcist mang laver med den kode? er det en slags style som skal knyttes til en kollonne? Hvordan gør man det?

i får lige min kode. Det jeg ønsker er at tilføje en kollonne med checkboxe i mit datagrid

Private Sub test2()
        Dim strFrom As String
        Dim strSubject As String
        Dim strBody As String
        Dim APP = CreateObject("Outlook.Application")
        Dim ns = APP.GetNamespace("MAPI")
        Dim OLF = ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox)
        Dim EmailItemCount = OLF.Items.Count
        Dim i As Int16 = 1
        Dim intAntalSlettes As Int16 = 0

     
        Dim Table1 As DataTable
        Table1 = New DataTable("EmailHandling")
        'creating a table named Customers
        Dim Row1, Row2, Row3, row4 As DataRow
        'declaring three rows for the table

        Dim From As DataColumn = New DataColumn("From")
        'declaring a column named Name
        From.DataType = System.Type.GetType("System.String")
        'setting the datatype for the column
        Table1.Columns.Add(From)
        'adding the column to table
        Dim Subject As DataColumn = New DataColumn("Subject")
        Subject.DataType = System.Type.GetType("System.String")
        Table1.Columns.Add(Subject)
        Dim Body As DataColumn = New DataColumn("Body")
        Body.DataType = System.Type.GetType("System.String")
        Table1.Columns.Add(Body)


        While (EmailItemCount > 0)

            With OLF.Items(EmailItemCount)

                strFrom = GetFromAddress(OLF.Items(EmailItemCount))
                strSubject = .Subject
                strBody = .Body

                If (strBody.IndexOf("This account has been closed") <> -1) Then
                    Row1 = Table1.NewRow()
                    'declaring a new row
                    Row1.Item("From") = strFrom
                    'filling the row with values. Item property is used to set the field value.
                    Row1.Item("Subject") = strSubject
                    'filling the row with values. adding a product
                    Row1.Item("Body") = strBody
                    'filling the row with values. adding a location
                    Table1.Rows.Add(Row1)
                    'adding the completed row to the table

                    intAntalSlettes += 1

                End If

            End With

            EmailItemCount = EmailItemCount - 1
        End While

        Dim ds As New DataSet()
        ds = New DataSet()
        'creating a dataset
        ds.Tables.Add(Table1)
        'adding the table to dataset
        DataGrid1.SetDataBinding(ds, "EmailHandling")
        'binding the table to datagrid

        lblAntal.Text = intAntalSlettes

        OLF = Nothing

    End Sub

jeg kan ikke VB.NET, så jeg fatter ikke det store af din kode - og kan slet ikke skrive den :-(

lukket