Array
(
)

Dados entre Páginas

Julierme
   - 12 set 2007

Pessoal tenho um form de agendamento de horarios, nesse form o professor cadastra o horario da aula, o dia da aula, serie e turma, e caso ele queria usar um DVD na aula ele clica num link e abre uma pagina para escolher o DVD. Para essa seleção do DVD fiz um form com datagrid e checkbox onde o usuario estará selecionando o DVD, ao clicar no botão OK, os dados do form de DVD tem que ir para o form de agendamento.
Só que ao clicar no botão OK abre novamente a janela com o form de agendamento, então acontece um erro ao clicar no botão salvar.

no page load do form agendamento tenho
Dim x As String
x = context.Items(´x´).ToString()
lblDVD.Text = x
Dim y As String
y = context.Items(´y´).ToString()
editIDfita.Text = y

Não esta voltando para o form origem digamos assim, como ao clicar no link Selecione DVD ele abre uma janela com o grid da tabela DVD após clicar no botão OK abre novamente o form de agendamento

Código do botão OK

Private Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click
For Each item As DataGridItem In Me.dgConsulta.Items
If item.ItemType = ListItemType.Item OrElse item.ItemType = ListItemType.AlternatingItem Then

Dim ckitem As CheckBox = DirectCast(item.FindControl(´CkItem´), CheckBox)
If ckitem.Checked Then
Me.Label1.Text &= item.Cells(2).Text
Me.Label2.Text &= item.Cells(1).Text
End If
End If
Next
context.Items.Add(´x´, Label1.Text)
context.Items.Add(´y´, Label2.Text)
Server.Transfer(´agendar.aspx´)
End Sub

O Certo seria voltar para o form de agendamento, e não abrir outra janela...

Como fazer para passar os dados da pagina do DVD para a pagina do agendamento...

Julierme
   - 20 set 2007

Pessoal da uma olhada no link abaixo, mostra o que estou tentando fazer.
http://www.julierme.somee.com/visual/agendar.aspx

na pagina q abrir click no link ´Selecionar DVD´

Julierme
   - 26 set 2007

Ufa!!!

Pessoal

Consegui resolver o meu problema para isso usei javascript

Na pagina de agendamento no botão selecionar dvd cloquei o seguinte código.

Code SnippetPrivate Sub btnsel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsel.Click

Dim script As String

script += ´<script language=´JavaScript´>´

script += ´window.open(´listadvd.aspx´,´popuppage´,´width=850,height=550,top=100,left=100,scrollbars=yes´)´

script += ´</script>´

Page.RegisterClientScriptBlock(´clientScript´, script)

End Sub

Na pagina de seleção do DVD o código do botão OK é seguinte.

Code SnippetPrivate Sub BtnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click

For Each item As DataGridItem In Me.dgConsulta.Items

If item.ItemType = ListItemType.Item OrElse item.ItemType = ListItemType.AlternatingItem Then

Dim ckitem As CheckBox = DirectCast(item.FindControl(´CkItem´), CheckBox)

If ckitem.Checked Then

Me.Label1.Text &= item.Cells(2).Text

Me.Label2.Text &= item.Cells(1).Text

End If

End If

Next

Dim script As String

script += ´ ´

Page.RegisterClientScriptBlock(´clientScript´, script)

End Sub

Agradeço a todos pela ajuda.....