Comparar Valor Com O Anterior

[.Andreia.]

hj é dia hein... eheheh

seguinte, tenho o retorno dos resultados exemplo:

cod_prod

100

100

120

130

130

130

preciso que separe os produtos com o cod coincidentes:

100

100

----

120

---

130

130

130

é simples, mas não entendi como pegar a id anterior e comparar com a proxima, tipo "se a id atual não for igual a anterior então <tr>"

Ps.: isso dentro do WHILE not...eof....

vl pessoal

[fercosmig]

[.Andreia.]

Fernando, apareceu esse erro:

(0x80020009)

Exceção.

na linha do if, no seu exemplo seria:

If a=rs(cod")

[cyberalexxx]

Fernando, apareceu esse erro:

(0x80020009)

Exceção.

na linha do if, no seu exemplo seria:

If a=rs(cod")

faltou o THEN

[.Andreia.]

faltou o THEN

Faltou, mas aqui eu tinha completado.

[Deividy]

eles estão em tabelas diferentes?

[.Andreia.]

Boa observação Deividy. São duas tabelas, estou fazendo INNER JOIN

[Deividy]

desculpe!!

Editado Novembro 8, 2005 por Deividy

[Deividy]

essa comparação você não poderia fazer já na instrução sql?

é que tenho um problema parecido!

[.Andreia.]

Deividy, não entendi como fazer essa comparação pela consulta SQL. A intenção é dividir os resultados por bloco, onde cada bloco é composto pelos dados de mesmo codigo.

[Deividy]

SELECT id_t1, id_t2

FROM t1 FULL OUTER JOIN t2 ON id_t1 = t2

o resultado do seu select será algo tipo

100 = 100

120 =

130 = 130

130 = 130

se você puder fazer isso numa consulta ou views assim na página você monta outra consulta

onde fica assim

select * from campo

pode controlar os que não são associado pelo campo IS NULL

acho que é isso meui complicado?

[.Andreia.]

a questao é usar FULL OUTER ? é fiquei meio confusa, não conheço isso

você disse q esta com o mesmo problema, você resolveu ou ainda tem?

[JCMPJ]

Oi!

Não testei. É uma idéia.

Dim strAnterior, c, mc
If Not rs.EOF Then
   c = 1
   mc= 1
   strAnterior = rs("cod")
   Response.Write "<tr><td>" & rs("cod") & "</td>"
   rs.MoveNext
   Do While NOT rs.EOF
     If strAnterior = rs("cod") Then
          c = c + 1
          If c > mc Then mc = c
          Response.Write "<td>" & rs("cod") & "</td>"
          Else
               c = 1
               Response.Write "</tr><tr><td>" & rs("cod") & "</td>"
     End If
          strAnterior = rs("cod")
          rs.MoveNext
   Loop
   If c < mc Then
     Response.Write "<td colspan=""" & mc - c & """></td></tr>"
     Else
          Response.Write "</tr>"
   End IF
   Else
        'Recordeset vazio
End If

[moe]

porque você não faz um select seguido de order by

?

[.Andreia.]

porque você não faz um select seguido de order by

?

já está assim Moe.

JCMPJ, vou testar esse codigo que você me passou dae vo respondendo aki vl

[.Andreia.]

[editado]

funcionou certinho JCMPJ, muito obrigada

vl a todos pela atenção!!!!!!