Dados entre Páginas

12/09/2007

0

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

Julierme

Responder

Posts

20/09/2007

Julierme

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´


Responder

26/09/2007

Julierme

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.....


Responder

Que tal ter acesso a um e-book gratuito que vai te ajudar muito nesse momento decisivo?

Ver ebook

Recomendado pra quem ainda não iniciou o estudos.

Eu quero
Ver ebook

Recomendado para quem está passando por dificuldades nessa etapa inicial

Eu quero

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar