popup com multiplas respostas

Question

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

Answer 1

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)

Answer 2

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

Answer 3

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