Ver Mensaje Individual
  #4 (permalink)  
Antiguo 23/03/2009, 13:15
Avatar de Myakire
Myakire
Colaborador
 
Fecha de Ingreso: enero-2002
Ubicación: Centro de la república
Mensajes: 8.849
Antigüedad: 23 años, 2 meses
Puntos: 146
Respuesta: Por favor ayuda para terminar de codificar un CICLO ANIDADO utilizando 2 t

La idea sería algo como esto:
Código ASP:
Ver original
  1. <%
  2. Set rsPadre_cmd = Server.CreateObject ("ADODB.Command")
  3. rsPadre_cmd.ActiveConnection = MM_conn_PMR2009_STRING
  4. rsPadre_cmd.CommandText = "SELECT Tra_ID,   Tra_NoModalidad,   Tra_HomoclaveGeneral as clave,   Tra_HomoclaveModalidad,   Tra_Nombre,   Tra_NombreModalidad FROM dbo.Tramite t WHERE t.Tra_NoModalidadTmp in (0,1) AND dep_ID = 100"
  5. rsPadre_cmd.Prepared = true
  6. Set rsPadre = rsPadre_cmd.Execute
  7. %>
  8. <table width="296" border="1">
  9.   <tr>
  10.     <td width="134" class="LigasGral">M_Id</td>
  11.     <td width="146" class="LigasGral">Clave</td>
  12.   </tr>
  13.   <% While (NOT rsPadre.EOF)  %>
  14.     <tr>
  15.       <td class="LigasGral"><%=(rsPadre.Fields.Item("Tra_ID").Value)%></td>
  16.       <td class="LigasGral"><%=(rsPadre.Fields.Item("clave").Value)%></td>
  17.     </tr>
  18.         <TR COLSPAN="2">
  19.             <%
  20.        vSQL = "SELECT Tra_ID, Tra_NoModalidad as cveSec, Tra_HomoclaveGeneral as clave, Tra_HomoclaveModalidad, " &_
  21.                     "       Tra_Nombre, Tra_NombreModalidad FROM dbo.Tramite t WHERE t.Tra_NoModalidadTmp > 0 AND Dep_ID =100 " &_
  22.                             "       AND Tra_ID = " & rsPadre.Fields.Item("Tra_ID").Value  
  23.        Set rshijos.Open vSQL
  24.             %>
  25.       <table border="1">
  26.           <tr>
  27.             <td class="CeldaGridDet">M_ID</td>
  28.             <td class="CeldaGridDet">cveSec</td>
  29.             <td class="CeldaGridDet">Clave</td>
  30.             <td class="CeldaGridDet">&nbsp;</td>
  31.           </tr>
  32.           <% While (NOT rshijos.EOF)  %>
  33.             <tr>
  34.               <td class="CeldaGridDet"><%=(rshijos.Fields.Item("Tra_ID").Value)%></td>
  35.               <td class="CeldaGridDet"><%=(rshijos.Fields.Item("cveSec").Value)%></td>
  36.               <td class="CeldaGridDet"><%=(rshijos.Fields.Item("clave").Value)%></td>
  37.               <td class="CeldaGridDet">&nbsp;</td>
  38.             </tr>
  39.           <%
  40.           rshijos.MoveNext()
  41.         Wend
  42.                 rshijos.Close
  43.         %>
  44.     </table>
  45.     <%
  46.   rsPadre.MoveNext()
  47. Wend
  48. %>

Revísalo y dinos si hay algo que no funcione

Saludos