Ciao a tutti,
è da un po' di tempo che non riesco a risolvere il problema dei controlli checkbox in un datagrid.
Grazie al vostro aiuto ho fatto passi avanti ma ora sono di nuovo fermo.
Il codice che uso per costruirmi il datagrid è il seguente:
Sub dg1_crea()
With dg1
.AutoGenerateColumns = False
.AllowSorting = True
.AllowPaging = True
.PageSize = 30
.Columns.Add(ButtonColumn("col1", dts1.Columns("col1")))
.Columns.Add(SortColumn("col2", dts1.Columns("col2")))
.Columns.Add(BoundColumn("col3", dts1.Columns("col3")))
.Columns.Add(CheckBoxColumn("chk1", Dts1.Columns("check1"), "cb.ascx"))
End With
End Sub
Private Function ButtonColumn(ByVal Etich As String, ByVal Col As DataColumn) As Object
Dim newcol As New ButtonColumn
With newcol
.Text = Etich
.HeaderText = Etich
.DataTextField = Col.ColumnName
.SortExpression = Col.ColumnName
.CommandName = Etich
.Visible = True
End With
ButtonColumn = newcol
End Function
Private Function BoundColumn(ByVal Etich As String, ByVal Col As DataColumn) As Object
Dim newcol As New BoundColumn
With newcol
.DataField = Col.ColumnName
.HeaderText = Etich
.Visible = True
End With
BoundColumn = newcol
End Function
Private Function SortColumn(ByVal Etich As String, ByVal Col As DataColumn) As Object
Dim newcol As New BoundColumn
With newcol
.DataField = Col.ColumnName
.SortExpression = Col.ColumnName
.HeaderText = Etich
.Visible = True
End With
SortColumn = newcol
End Function
Private Function CheckBoxColumn(ByVal Etich As String, ByVal Col As DataColumn, ByVal NomeTemplate As String) As Object
Dim newcol As New TemplateColumn
With newcol
.HeaderText = Etich
.Visible = True
.ItemTemplate = Page.LoadTemplate(NomeTemplate)
End With
CheckBoxColumn = newcol
End Function
Ora il problema è che non riesco ad associare la proprietà Checked in base al valore contenuto nel campo "check1".
NB: check1 è una colonna di tipo bit di una tabella SQL (0/1)
Mi aiutate per piacere ?
