can someone please tell me why this isnt working??
Public Sub GenerateTasksDG(ByVal sender As Object, ByVal e As DataGridItemEventArgs)
If ((e.Item.ItemType = ListItemType.Item) Or (e.Item.ItemType = ListItemType.AlternatingItem)) Then
Dim TasksDG As DataGrid = New DataGrid
Dim btnc As ButtonColumn = New ButtonColumn
btnc.HeaderText = "Save Hours"
btnc.ButtonType = ButtonColumnType.PushButton
btnc.Text = "Save"
btnc.CommandName = "Save"
TasksDG.Columns.Add(btnc)
AddHandler TasksDG.ItemCommand, AddressOf Grid_ItemCommand
Dim _tasks As DataView = ds.Tables ("HoursWorked").DefaultView
_tasks.RowFilter = "ProjectId='" + e.Item.Cells(0).Text + "'"
TasksDG.DataSource = _tasks
TasksDG.DataBind()
e.Item.Cells(2).Controls.Add(TasksDG)
End Sub
Protected Sub Grid_ItemCommand(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
If (e.CommandName = "Save") Then
Response.Redirect("ITGMainMenu.aspx")
End If
End Sub
Public Sub GenerateTasksDG(ByVal sender As Object, ByVal e As DataGridItemEventArgs)
If ((e.Item.ItemType = ListItemType.Item) Or (e.Item.ItemType = ListItemType.AlternatingItem)) Then
Dim TasksDG As DataGrid = New DataGrid
Dim btnc As ButtonColumn = New ButtonColumn
btnc.HeaderText = "Save Hours"
btnc.ButtonType = ButtonColumnType.PushButton
btnc.Text = "Save"
btnc.CommandName = "Save"
TasksDG.Columns.Add(btnc)
AddHandler TasksDG.ItemCommand, AddressOf Grid_ItemCommand
Dim _tasks As DataView = ds.Tables ("HoursWorked").DefaultView
_tasks.RowFilter = "ProjectId='" + e.Item.Cells(0).Text + "'"
TasksDG.DataSource = _tasks
TasksDG.DataBind()
e.Item.Cells(2).Controls.Add(TasksDG)
End Sub
Protected Sub Grid_ItemCommand(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
If (e.CommandName = "Save") Then
Response.Redirect("ITGMainMenu.aspx")
End If
End Sub