Repetir Região - Horizontal e Vertical
Possuo uma tabela TB_Departamentos (Departamento_ID) e TB_Unidades (unidade_ID - chave prim. e Departamento_ID chave estrang.).
Não consigo listar dentro de cada Tabela Departamento suas unidades conforme a primeira coluna, conforme exemplo abaixo...
MCR....................MCJ...................MCB...................MCS...................MCD...................MCI (departamentos)
- MCRE
- MCRE01
- MCRI
- MCRS
- MCRS01
- MCRS02
- MCRV
- MCRV01
- MCRV02
Gostaria de um HELP dos senhores, abaixo segue código.... Abraço a todos...
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/cnx.asp" -->
<%
Dim RsDepto
Dim RsDepto_cmd
Dim RsDepto_numRows
Set RsDepto_cmd = Server.CreateObject ("ADODB.Command")
RsDepto_cmd.ActiveConnection = MM_cnx_STRING
RsDepto_cmd.CommandText = "SELECT * FROM TB_Departamentos"
RsDepto_cmd.Prepared = true
Set RsDepto = RsDepto_cmd.Execute
RsDepto_numRows = 0
%>
<%
Dim rsDivisao__MMColParam
rsDivisao__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then
rsDivisao__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsDivisao
Dim rsDivisao_cmd
Dim rsDivisao_numRows
Set rsDivisao_cmd = Server.CreateObject ("ADODB.Command")
rsDivisao_cmd.ActiveConnection = MM_cnx_STRING
rsDivisao_cmd.CommandText = "SELECT * FROM TB_Unidades WHERE departamento_ID = ?"
rsDivisao_cmd.Prepared = true
rsDivisao_cmd.Parameters.Append rsDivisao_cmd.CreateParameter("param1", 5, 1, -1, rsDivisao__MMColParam) ' adDouble
Set rsDivisao = rsDivisao_cmd.Execute
rsDivisao_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsDivisao_numRows = rsDivisao_numRows + Repeat1__numRows
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = -8
Dim HLooper1__index
HLooper1__index = 0
RsDepto_numRows = RsDepto_numRows + HLooper1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento sem título</title>
<link href="sty.css" rel="stylesheet" type="text/css" />
<style type="text/css">body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
</style>
</head>
<body>
<p> </p>
<table width="310"><%
startrw = 0
endrw = HLooper1__index
numberColumns = 8
numrows = -1
while((numrows <> 0) AND (Not RsDepto.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<tr align="center" valign="top">
<%While ((startrw <= endrw) AND (Not RsDepto.EOF))
%>
<td><table width="116%">
<tr>
<td bgcolor="#CCCCCC" class="Titulo_14_Azul"><%=(RsDepto.Fields.Item("departamento_Sigla").Value)%></td>
</tr>
<tr>
<td bgcolor="#CCCCCC"><%While ((Repeat1__numRows <> 0) AND (NOT rsDivisao.EOF) )
%>
<div align="left"><span class="Label_14_Preto_SemSerifa">- <%=(rsDivisao.Fields.Item("unidade_sigla").Value)%></span><br />
</div><%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsDivisao.MoveNext()
Wend
%></td>
</tr>
<tr>
<td bgcolor="#CCCCCC"> </td>
</tr>
</table></td>
<%startrw = startrw + 1
RsDepto.MoveNext()
Wend
%>
</tr>
<%numrows=numrows-1
Wend
%>
</table>
<p> </p>
</body>
</html><%
RsDepto.Close()
Set RsDepto = Nothing
%>
<%
rsDivisao.Close()
Set rsDivisao = Nothing
%>
Discussão (3)
Carregando comentários...