none
popup com multiplas respostas RRS feed

  • Pergunta

  • olá pessoal:
    para devolver uma resposta a um campo da tela chamadora eu estou fazendo assim:
      Dim strScript As String = "<script> "
            strScript += "window.opener.document.forms[0].ctl00_ContentplaceHolder1_txtNome.value = '"
            strScript += CType(row.Cells(0).Controls(0), LinkButton).Text
            strScript += " ';window.close();"
            strScript += "</" + "script>"
            Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), "script", strScript)

    agora quando eu preciso passar mais de um parametro para mais de um campo? o que eu faço???é a mesma lógica
    quarta-feira, 22 de agosto de 2007 20:41

Respostas

  • você quer setar o valor de mais de um campo, é isso?

    se for isso é só ir separando os comandos por ;

     Dim strScript As String = "<script> "
            strScript += "window.opener.document.forms[0].ctl00_ContentplaceHolder1_txtNome.value = '"
            strScript += CType(row.Cells(0).Controls(0), LinkButton).Text

            strScript += " ';window.opener.document.forms[0].controle2 = '"
            strScript += valor2

            strScript += " ';window.opener.document.forms[0].controle3 = '"
            strScript += valor3

            strScript += " ';window.opener.document.forms[0].controleN = '"
            strScript += valorN
            strScript += " ';window.close();"
            strScript += "</" + "script>"
            Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), "script", strScript)

    quinta-feira, 23 de agosto de 2007 10:28
  • olha, deveria estar funcionando essa parte que você indicou em negrito, está lançando algum erro?
    o que eu imagino que pode estar erado é que em javascript é true e não True
    talvez seja isso, tenta mudar tudo para minúsculo e vê se funciona, se não funcionar eu dou uma olhada melhor no seu código pra ver o que pode estar acontecendo
    []s
    quinta-feira, 23 de agosto de 2007 16:29

Todas as Respostas

  • você quer setar o valor de mais de um campo, é isso?

    se for isso é só ir separando os comandos por ;

     Dim strScript As String = "<script> "
            strScript += "window.opener.document.forms[0].ctl00_ContentplaceHolder1_txtNome.value = '"
            strScript += CType(row.Cells(0).Controls(0), LinkButton).Text

            strScript += " ';window.opener.document.forms[0].controle2 = '"
            strScript += valor2

            strScript += " ';window.opener.document.forms[0].controle3 = '"
            strScript += valor3

            strScript += " ';window.opener.document.forms[0].controleN = '"
            strScript += valorN
            strScript += " ';window.close();"
            strScript += "</" + "script>"
            Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), "script", strScript)

    quinta-feira, 23 de agosto de 2007 10:28
  • Ola! E para eu passar um valor boleano para um checkbox? como fica???
    eu tentei fazer assim:
    Dim strScript As String = "<script> "
                strScript += "window.opener.document.forms[0].ctl00_ContentplaceHolder1_txtNome.value = '"
                strScript += CType(row.Cells(0).Controls(0), LinkButton).Text
                strScript += "';window.opener.document.forms[0].ctl00_ContentplaceHolder1_txtCga.value = '"
                strScript += row.Cells(3).Text
                strScript += "';window.opener.document.forms[0].ctl00_ContentplaceHolder1_txtEmail.value = '"
                strScript += email
                strScript += "';window.opener.document.forms[0].ctl00_ContentplaceHolder1_txtdocumento.value = '"
                strScript += documento
                strScript += "';window.opener.document.forms[0].ctl00_ContentplaceHolder1_txtatividade.value = '"
                strScript += (CType(row.FindControl("lblatividade"), Label).Text.ToString())
                strScript += "';window.opener.document.forms[0].ctl00_ContentplaceHolder1_codigo_atividade.value = '"
                strScript += (CType(row.FindControl("lblcodatividade"), Label).Text.ToString())
                strScript += "';window.opener.document.forms[0].ctl00_ContentplaceHolder1_codigo_usuario.value = '"
                strScript += (CType(row.FindControl("lblid"), Label).Text.ToString())
                If Len(row.Cells(1).Text) < 14 Then
                    strScript += "';window.opener.document.forms[0].ctl00_ContentplaceHolder1_RBFisica.checked = True;"
                Else
                    strScript += "';window.opener.document.forms[0].ctl00_ContentplaceHolder1_RBJuridica.checked = True;"
                End If
                strScript += "window.close();"
                strScript += "</" + "script>"
                Page.ClientScript.RegisterClientScriptBlock(Me.GetType(), "script", strScript)
    só que não funcionou....
    alguma sugestão???
    quinta-feira, 23 de agosto de 2007 14:31
  • olha, deveria estar funcionando essa parte que você indicou em negrito, está lançando algum erro?
    o que eu imagino que pode estar erado é que em javascript é true e não True
    talvez seja isso, tenta mudar tudo para minúsculo e vê se funciona, se não funcionar eu dou uma olhada melhor no seu código pra ver o que pode estar acontecendo
    []s
    quinta-feira, 23 de agosto de 2007 16:29