DataGrid中 如何在后台动态添加模版列 ？

Question

如题

Answer 1

Private Sub AddChecked(ByRef zDataGrid As DataGrid)
            With zDataGrid
                Dim NewColumn As New TemplateColumn
                NewColumn.HeaderText = ""
                NewColumn.ItemTemplate = New AddCheckColumn '引进模版列
                .Columns.AddAt(0, NewColumn)
            End With
        End Sub
    Public Class AddCheckColumn
        Implements ITemplate
        '加入一个带选择框的模版列
        Public Overridable Sub InstantiateIn(ByVal container As Control) Implements ITemplate.InstantiateIn
            '为了增加模版列
            Dim MyCheck As New CheckBox
            MyCheck.ID = "GridCheckId"
            container.Controls.Add(MyCheck)
        End Sub
    End Class

Answer 2

那么 如果给这个CheckBox添加服务器控件呢，我现在是在DataBound中给CheckBox 增加点击事件的委托 可是没有效果~！