Datagrid asp:EditCommand Column with Creating Templates in a progra

[slemen]

Hi,

The DataGrid aps:EditCommand Column when used with column templates created
programmaticall y does not trigger the _Edit subroutine in code. The
ASP:Datagrid definition is below (1), the _Edit subroutine signature (2) is
below that and the column template class is (3).

Thank you for your help,

Scott

1)
<ASP:DATAGRID id="MyDataGrid " runat="server" AutoGenerateCol umns="False"
AllowSorting="T rue"
Font-Names="Verdana" AlternatingItem Style-BackColor="Gain sboro"
OnItemDataBound ="MyDataGrid_It emBound" ShowFooter="Tru e"
OnSortCommand=" MyDataGrid_Sort Command" OnEditCommand=" MyDataGrid_Edit "
OnCancelCommand ="MyDataGrid_Ca ncel"
onDeleteCommand ="MyDataGrid_De leteCommand"
OnUpdateCommand ="MyDataGrid_Up date" BorderWidth="1p x"
Font-Name="Verdana" Font-Size="8pt" HeaderStyle-BackColor="#aaa add"
BorderColor="Bl ack" CellPadding="3" Height="441px">
<HeaderStyle BackColor="#AAA ADD" Wrap="False"></HeaderStyle>

<Columns>
<asp:EditComman dColumn ButtonType="Pus hButton" UpdateText="Ok"
HeaderText="Edi t Info" CancelText="Can cel" EditText="Edit" >
<HeaderStyle Wrap="False" HorizontalAlign ="Center" Width="50px"></HeaderStyle>
<ItemStyle Wrap="False" Width="50px"></ItemStyle>
</asp:EditCommand Column>
</Columns>
</ASP:DATAGRID>

2)
Sub MyDataGrid_Edit (ByVal sender As Object, ByVal e As _
DataGridCommand EventArgs)
..
..
..
End Sub

The column templates are created with by calling the custom Templates column:

3)
Public Class DynamicDataGrid Template
Implements ITemplate
Dim templateType As ListItemType
Dim columnName As String
Dim ColumnNum As Integer

Sub New(ByVal type As ListItemType, ByVal ColName As String, ByVal ColNum
As Integer)
templateType = type
columnName = ColName
columnNum = ColNum
End Sub

Sub InstantiateIn(B yVal container As Control) _
Implements ITemplate.Insta ntiateIn

Dim lc As New Literal
Dim chkBox1 As New CheckBox
Dim chkBox2 As New CheckBox
Select Case templateType
Case ListItemType.He ader
If ColumnNum = 0 Then
lc.Text = "<B>" & columnName & "</B><BR>"
container.Contr ols.Add(lc)
Else
lc.Text = "<B>" & columnName & "</B><BR>"
container.Contr ols.Add(lc)
If ColumnNum = 1 Then
chkBox1.Text = "Asc"
If columnName.Star tsWith("Acad") Then
chkBox1.Checked = False
Else
chkBox1.Checked = True
End If

chkBox1.ID = "chkBox" & ColumnNum
container.Contr ols.Add(chkBox1 )
If columnName.Star tsWith("Acad") Then
chkBox2.Checked = True
Else
chkBox2.Checked = False
End If
chkBox2.Text = "Desc"
chkBox2.ID = "chkBox" & ColumnNum
container.Contr ols.Add(chkBox2 )
Else
chkBox1.Text = "Asc"
chkBox1.ID = "chkBox" & ColumnNum
container.Contr ols.Add(chkBox1 )
chkBox2.Text = "Desc"
chkBox2.ID = "chkBox" & ColumnNum
container.Contr ols.Add(chkBox2 )
End If
End If
Case ListItemType.It em
lc.Text = "Item " & columnName
container.Contr ols.Add(lc)
Case ListItemType.Ed itItem
Dim tb As New TextBox
tb.Text = ""
container.Contr ols.Add(tb)
Case ListItemType.Fo oter
lc.Text = "<I>Footer</I>"
container.Contr ols.Add(lc)
End Select
End Sub
End Class