Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

shumi

Loop

Recommended Posts

Galera,

To com um problema em um loop aqui.

vejam:

<table width="134" border="1">						  <%While not rs5.EOF							While not rs.EOF%>						  <tr>							<td width="57" class="textobranco">Data</td>						  </tr>						  <tr>							<%							data = rs("data")							periodo = rs5("periodo")							%>							<%IF data = periodo Then%>							<td width="57" bgcolor="#FFFFFF" class="texto10"><%=rs("data")%></td>							<%Else%>							<td width="57" class="texto10"><%=rs("data")%></td>							<%End IF%>							</tr>						  <tr>						  <%IF rs("presenca") = True Then%>						  <td bgcolor="#00FF00"> </td>						  <%Else%>						  <%IF rs("motivo") = "Falta de Produto" Then%>						  <td bgcolor="#FFFF00"> </td>						  <%Else IF rs("motivo") = "Falta de Promotora" Then%>						  <td bgcolor="#FF0000"> </td>						  <%Else IF rs("motivo") = "Atraso de material de apoio" Then%>						  <td bgcolor="#0000FF"> </td>						   <%Else IF rs("motivo") = "Falta de documentação" Then%>						  <td bgcolor="#FF00FF"> </td>						   <%Else IF rs("motivo") = "Desistência de Promotora" Then%>						  <td bgcolor="#660099"> </td>						   <%Else IF rs("motivo") = "Folga" Then%>						  <td bgcolor="#FFCC66"> </td>						   <%Else IF rs("motivo") = "Não iniciou" Then%>						  <td bgcolor="#CCCCCC"> </td>						   <%Else IF rs("motivo") = "Outros" Then%>						  <td bgcolor="#0000FF"><%=rs("outros")%></td>						<%End IF%>						  <%End IF%>						  <%End IF%>						  <%End IF%>						  <%End IF%>						  <%End IF%>						  <%End IF%>						  <%End IF%>						   <%End IF%>						 <%							rs.MoveNext							rs5.MoveNext							Wend							Wend							%>						  </table>

E ele esta ficando assim http://www.newstyle1.com/imagem.jpg e tem que ser assim: http://www.newstyle1.com/imagem2.jpg

 

Como coloco ele na horizontal?

Compartilhar este post


Link para o post
Compartilhar em outros sites

simples tiozinhoem vez de colocar as linha dentro da coluna<HTML><BODY><TABLE><TD><TR>1</TR><TR>2</TR></TD></TABLE></BODY></HTML>ponha as colunas dentro da linha<HTML><BODY><TABLE><TR><TD>1</TD><TD>2</TD></TR></TABLE></BODY></HTML>faça isso...

Compartilhar este post


Link para o post
Compartilhar em outros sites

você ta colocando os parametros de loop fora das <TR>!!você tem que colocar dentro delas pq o que você quer repetir nao sao as linhas, e sim as celulas (<td>)...coloque essa tabela que você fez dentro de outra tabela.. (coloque tudo em apenas 1 celula)... e ao inves de você colocar o loop atras dessa TR, você coloca atras da TD da nova tabela (a tabela extrena).. dessa forma você vai repetir todo o conteudo da celula externa, ou seja, o conteudo que você quer repetir

Compartilhar este post


Link para o post
Compartilhar em outros sites

simples tiozinhoem vez de colocar as linha dentro da coluna<HTML><BODY><TABLE><TD><TR>1</TR><TR>2</TR></TD></TABLE></BODY></HTML>ponha as colunas dentro da linha<HTML><BODY><TABLE><TR><TD>1</TD><TD>2</TD></TR></TABLE></BODY></HTML>faça isso...

Mario,mas o meu esta assim:<HTML><BODY><TABLE><TR><TD>1</TD><TD>2</TD></TR></TABLE></BODY></HTML>

Compartilhar este post


Link para o post
Compartilhar em outros sites

entao ta errado a forma como organiza dentro do loop...na sua pagina...copia o html gerado e posta aquiso pra ver como ta ficando

Compartilhar este post


Link para o post
Compartilhar em outros sites

html

<html><head><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /><title>Extranet NewStyle</title><link href="includes/padrao.css" rel="stylesheet" type="text/css" /><link href="includes/menu.css" rel="stylesheet" type="text/css" /><script language="JavaScript">function apagar() {  document.counter.reset();}</script></head><body bgcolor="#D2CFCF"><center><form name="counter" method="post" action="campanha_valida.asp" onSubmit="return submitForm();"><table id="Table_01" width="812" height="598" border="0" cellpadding="0" cellspacing="0">	<tr>		<td colspan="5" background="imagens/images/teste_01.jpg" width="812" height="481"><div align="center"><span class="textocima">Relatório de presença.</span><br>			<br>			<table width="633" border="0">			  <tr>				<td width="627"><div class="divhorizontal2">				  <table width="699" height="354" border="0">					<tr>					  <td><span class="texto10" style="text-transform:uppercase"><a href="altera_local_mesmo.asp?muda=1&codlocal=11">11 - CBD NOVA SANTOS</a> - <a href="ver_ficha_de_pessoal_mesmo.asp?muda=1&codfuncionario=28&campanha=72">rodrigo castro de souza</span><br>						<table width="50" border="1">						  						  <tr>							<td width="57" class="textobranco">Data</td>						  </tr>						  <tr>														<td width="30" bgcolor="#FFFFFF" class="texto10">22/8/2006</td>														</tr>						  <tr>						  						  <td bgcolor="#00FF00"> </td>						  						  <tr>							<td width="57" class="textobranco">Data</td>						  </tr>						  <tr>														<td width="30" bgcolor="#FFFFFF" class="texto10">5/9/2006</td>														</tr>						  <tr>						  						  <td bgcolor="#00FF00"> </td>						  						  <tr>							<td width="57" class="textobranco">Data</td>						  </tr>						  <tr>														<td width="30" bgcolor="#FFFFFF" class="texto10">19/9/2006</td>														</tr>						  <tr>						  						  <td bgcolor="#FFFF00"> </td>						  						  </table>						<br></td></tr>				  </table>				</div></td>			  </tr>			</table>		</div>		</span></td>	</tr>	<tr>		<td rowspan="2">			<img src="imagens/images/teste_02.jpg" width="262" height="117" alt=""></td>		<td>							<input type="image" name="envia" value="Confirmar" src="imagens/images/teste_03.jpg" width="80" height="80"></td>		<td>			<input type="image" name="limpa" value="Limpar" src="imagens/images/teste_04.jpg" width="92" height="80" border="0" onClick="apagar(); return false;"></td>		<td>			<a href="atendimento.asp">				<img src="imagens/images/teste_05.jpg" width="82" height="80" border="0" alt=""></a></td>		<td rowspan="2">			<img src="imagens/images/teste_06.jpg" width="296" height="117" alt=""></td>	</tr>	<tr>		<td colspan="3">			<img src="imagens/images/teste_07.jpg" width="254" height="37" alt=""></td>	</tr></table></form></center></body></html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

como eu disse, você quer duplicar a celula e nao a linha (para ficar na horizontal)... o melhor jeito eh você criar uma tabela externa e colocar todo o conteudo dessa tabela dentro da externa... (dentro de apenas uma celula)... dai você dah loop nessa celula externa (fora do TD e dentro do TR)... ai ele ficará na horizontal.

 

ficará tipo assim (exemplo ficticio e simples):

<table><tr><%do while not rs.eof%><td>	   <table>	   <tr>	   <td>conteudo</td>	   </tr>	   </table></td><%rs.movenextLoop%></tr></table>

Compartilhar este post


Link para o post
Compartilhar em outros sites

deu certo a tabela como você falou, mas tenho um outro problema.

Tem essa parte no meu script:

<%							data = rs("data")							periodo = rs5("periodo")							%>							<%IF data = periodo Then%>							<td width="57" bgcolor="#FFFFFF" class="texto10"><%=rs("data")%></td>							<%Else%>							<td width="57" class="texto10"><%=rs("data")%></td>							<%End IF%>

Ai se eu tenho 3 periodos cadastrados no meu DB e 4 datas da erro, pois ele ta comparando um com um. o que tenho que fazer é comparar cada data com 1 unico periodo e assim por diante.

 

 

Por exemplo

Periodos

A = 01/09/2006

B = 09/09/2006

C = 18/09/2006

 

Datas

1 = 01/09/2006

2 = 02/09/2006

3 = 20/08/2006

4 = 08/09/2006

 

Cada data tem que bater com cada periodo

Tipo:

A = 1?

A = 2?

A = 3?

A = 4?

B = 1?

B = 2?

B = 3?

B = 4?

C = 1?

C = 2?

C = 3?

C = 4?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Bixo eu no seu lugar usaria matriz...i=0while not(rs.eof)matrizPeriodo(i) = rs("periodo")i=i+1auxPer=iwendj=0while not(rs5.eof)matrizData(j) = rsr("data")j=j+1auxData=jwendfor i=0 to auxPerfor j=0 to auxDataif matrizData(j) = matrizData(i).........end ifnextnextNão sei se isso é piração minha mas sei-lá entende!

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tentei assim:

<%i=0while not(rs.eof)matrizPeriodo(i) = rs("periodo")i=i+1auxPer=iwendj=0while not(rs5.eof)matrizData(j) = rs("data")j=j+1auxData=jwendfor i=0 to auxPerfor j=0 to auxDataif matrizData(j) = matrizData(i) Then%><td width="57" bgcolor="#FFFFFF" class="texto10"><%=rs("data")%></td><%Else%><td width="57" class="texto10"><%=rs("data")%></td><%end ifnextnext%>
E deu esse erro:

Microsoft VBScript runtime error '800a000d' Type mismatch: 'matrizPeriodo' /sis/relatorio_de_presenca_mesmo.asp, line 186

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.