La pagina b la apro con un javascript con questo esattamente:
aChiaveCli e aAZCli sono i due imagebutton che ho a lato di m_clisel e che mi consentono di ricercare il cliente per codice nel caso io schiacci la Chiave o per ragione sociale nel caso schiacci l'AZ.codice:Dim sTextBoxName As String = Me.FindControl("m_CliSel").ClientID() CType(Me.FindControl("aChiaveCli"), HyperLink).NavigateUrl = "javascript:cercaclienti_window=window.open('cercaclienti.aspx?formname=InsOrdini." & sTextBoxName & "&clifor=" & m_CliSel.Text & "','Ricerca_Clienti','width=600,height=600,location=no, menubar=no, status=no, toolbar=yes, scrollbars=yes, resizable=yes');cercaclienti_window.focus();" CType(Me.FindControl("aAZCli"), HyperLink).NavigateUrl = "javascript:cercaclienti_window=window.open('cercaclienti.aspx?formname=InsOrdini." & sTextBoxName & "&ragsoc=" & m_CliSel.Text & "','Ricerca_Clienti','width=600,height=600,location=no, menubar=no, status=no, toolbar=yes, scrollbars=yes, resizable=yes');cercaclienti_window.focus();"
Ti posto il codice al momento del ritorno del codice cliente scelto magari ti può essere utile
codice:Private Sub OnSelectCliente(ByVal sender As System.Object, ByVal e As DataGridCommandEventArgs) Handles dgClienti.ItemCommand 'preparo la stringa per lo script Dim strjscript As String = "<script language=""javascript"">" 'Recupero il codice Dim Cliente As String = CType(e.CommandSource, System.Web.UI.WebControls.LinkButton).Text 'Recupero la ragione sociale Dim RagSoc As String = RecuperaStringaDaSQL("CFAnagra", "RagSoc,CliFor,TipoCliFor", "TipoCliFor = '3211264' AND CliFor = '" + Cliente + "'", "TipoCliFor,CliFor") 'Recupero la condizione di pagamento Dim CondPag As String = RecuperaStringaDaSQL("CFAnagra", "CondPag", "TipoCliFor = '3211264' AND CliFor = '" + Cliente + "'", "TipoCliFor,CliFor") Dim CondPagDescri As String = RecuperaStringaDaSQL("CondPag", "Descri", "CondPag = '" + CondPag + "' AND Disattiva = '0'", "Descri") 'Cerco di capire se sono in daCliente o in aCliente Dim Controllo As String = HttpContext.Current.Request.QueryString("formname") If (Controllo = "InsOrdini.m_CliSel") Then Controllo = Controllo.Replace("m_CliSel", "") strjscript &= "window.opener." & HttpContext.Current.Request.QueryString("formname") & ".value = '" & Cliente & "'" & _ ";window.opener.document.forms[0].submit()" & _ ";window.close();" End If strjscript = strjscript & "</script" & ">" 'Don't Ask, Tool Bug Literal1.Text = strjscript 'Set the literal control's text to the JScript code End Sub

Rispondi quotando