Hola a To2, Hice lo que me dijeron, pero no me funciono
, aqui les mando el codigo, espero me puedan ayudar....
Pagina Principal
<%@ Page Language="VB" Debug="True" %>
<script runat="server">
' Insert page code here
'
</script>
<html>
<head>
<script language="javascript">
function VerPrecio(obj,obj2)
{
var url = Prueba2.aspx?textbox=obj&textbox2=obj2;
window.open('url','cal','width=517,height=577,left =3 70,top=350,resizable=0,scrollbars=0');
}
</script>
</head>
<body>
<form runat="server">
<p>
<asp:TextBox id="TextBox1" runat="server" ReadOnly="True" TextMode="MultiLine" Width="251px"></asp:TextBox>
<asp:TextBox id="TextBox2" runat="server"></asp:TextBox>
<a onclick="VerPrecio('TextBox1','TextBox2');" href="#">Ver</a>
</p>
<!-- Insert content here -->
</form>
</body>
</html>
Pagina Popup
<%@ Page Language="VB" Debug="True" %>
<script runat="server">
' Insert page code here
'
Function Consulta(ByVal descripcion As String) As System.Data.DataSet
Dim connectionString As String = "server='(local)'; user id='Cementerioaspnet'; password='12345'; database='Cemente"& _
"rio'"
Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)
Dim queryString As String = "SELECT [Descripcion].[Descripcion], [Descripcion].[Valor], [Descripcion].[Años] F"& _
"ROM [Descripcion] WHERE ([Descripcion].[Descripcion] = @Descripcion)"
Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection
Dim dbParam_descripcion As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
dbParam_descripcion.ParameterName = "@Descripcion"
dbParam_descripcion.Value = descripcion
dbParam_descripcion.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_descripcion)
Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataSet)
Return dataSet
End Function
Sub Button1_Click_1(sender As Object, e As EventArgs)
Dim auxDS As New System.Data.DataSet
auxDS = consulta(RadioButtonList1.SelectedItem.text)
Dim obj As String = Request.QueryString("textbox")
Dim obj2 As String = Request.QueryString("textbox2")
If Not obj Is Nothing Then
Dim strScript As String = "<script>window.opener.document.getElementById ('" + obj + "').value = '"
strScript += auxDs.tables(0).rows(0).item(0)
strScript += "';self.close()"
strScript += "</" + "script>"
RegisterClientScriptBlock("ChangeDate", strScript)
End If
If Not obj2 Is Nothing Then
Dim strScript2 As String = "<script>window.opener.document.getElementById ('" + obj2 + "').value = '"
strScript2 += auxDs.tables(0).rows(0).item(2)
strScript2 += "';self.close()"
strScript2 += "</" + "script>"
RegisterClientScriptBlock("ChangeDate2", strScript2)
End If
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server">
<p align="left">
<asp:RadioButtonList id="RadioButtonList1" runat="server" RepeatLayout="Flow" OnSelectedIndexChanged="RadioButtonList1_SelectedI ndexChanged" AutoPostBack="True" OnSelectionChanged="RadioButtonList1_SelectedIndex Changed" Width="363px" Height="45px" Font-Size="XX-Small" Font-Names="Verdana">
<asp:ListItem Value="Nichos Triples Adultos Perpetuos Rasantes del Suelo / 50 U.T.M.">Nichos Triples Adultos Perpetuos Rasantes del Suelo / 50 U.T.M.</asp:ListItem>
<asp:ListItem Value="Nichos Doble Adulto Perpetuos Rasantes del Suelo / 40 U.T.M.">Nichos Doble Adulto Perpetuos Rasantes del Suelo / 40 U.T.M.</asp:ListItem>
<asp:ListItem Value="Nichos Doble Párvulo Perpetuos Rasantes del Suelo / 45 U.T.M.">Nichos Doble Párvulo Perpetuos Rasantes del Suelo / 45 U.T.M.</asp:ListItem>
</asp:RadioButtonList>
</p>
<p>
<asp:Button id="Button1" onclick="Button1_Click_1" runat="server" Text="Button"></asp:Button>
</p>
<!-- Insert content here -->
</form>
</body>
</html>
Saludos y desde ya muchas gracias
Roberto