find forskel i db udtræk
Hey Ejeg skal finde og farve forskellen på db udtræk.
Jeg henter et 2 dimmensionelt array fra db således:
..............
rs_custom strSQL,3,"log"
if rs.EOF or rs.BOF then
response.Redirect("default.asp?mode=historik_seek&resultat=no")
else
arrMitArray = rs.GetRows
end if
rs_end()
..............
så udskriver jeg arrayet således:
..............
For i = 0 To Ubound(arrMitArray,2) ' fjerner rækker (frem/tilbage) %>
<tr>
<% for e = 5 to 5 ' fjerne kolonner (op/ned) %>
<td nowrap title="<%=titelTavle%>">
<%=arrMitArray(e,i)%>
</td>
<% Next %>
<% for e = 1 to 4 ' fjerne kolonner (op/ned)%>
<td nowrap title="<%=seek4like(arrMitArray(e,i))%>">
<%=arrMitArray(e,i)%>
</td>
<% Next %>
<% for e = 6 to ubound(arrMitArray,1) ' fjerne kolonner (op/ned)%>
<td nowrap style="background-color:<%if arrMitArray(e,Ubound(arrMitArray,2)) <> arrMitArray(e,i) then%>#FF66CC<%end if%>;">
<%=arrMitArray(e,i)%>
</td>
<% Next %>
</tr>
<% Next
.............
hvor jeg med denne kode forsøger at vise forskellen:
............
<%if arrMitArray(e,Ubound(arrMitArray,2)) <> arrMitArray(e,i) then%>#FF66CC<%end if%>
............
resultatet er at jeg for farvet baggrunden hvis rækkker er forskellig kun fra den første række. Det er ikke godt nok. Jeg har brug for at hver række holdes op mod den forrige og farven så vises.
Yderligere har jeg brug for at udvide koden til basere forskellen ud fra ens data i første kolonne i alle rækkerne:
.........FX..........
| 1.col | 2.col | 3.col | osv.
----------------------------------
1.rk| M501 | fisk | mus | finn
----------------------------------
2.rk| M501 | fisk | hest | finn
----------------------------------
3.rk| M501 | fisk | hest | haj
----------------------------------
4.rk| M504 | ost | fisk | haj
----------------------------------
5.rk| M504 | ost | fisk | haj
----------------------------------
..................
ønskede resultat:
farvet = 3.col,2.rk + osv.,3.rk
.................
Kan i hjælpe?
