Jag listar ut mina poster med "Order by fldArtikelId"
jag har även ett fält: fldPlace som kan vara 0,1,2,3 osv.
Nu vill jag ta reda på i vilken ordning i mitt Rs dessa kommer, alltså på vilken "position" i Rs finns fldPlace 1,2,3 osv (inte 0) så att jag får en lista typ: 5,2,15
Hur är detta möjligt?
(Jag vill ha reda på detta för att kunna "hitta" posten i en selectbox där jag loopar ut mitt Rs)
mystring = ""
Do Until rs.eof
If clng(rs("fldPlace")) > 0 AND clng(rs("fldPlace")) < 100 then
mystring = mystring & rs.AbsolutePosition & ","
End if
rs.movenext
loop
l = len(mystring)
if l > 0 then
mystring = left(mystring,l-1)
end if
Vad är problemet?
------------------ essentitia preter non sans multiplicandum
Jo, nu får jag ut en lista, mystring = 1,3,6,13 typ, i nummerordning.
Men jag vill ha nummren placerad i den ordning som vars värde fldPlace ger.
fldPlace har alltså ett värde av typ 1,2,3 osv. Jag vill ha det
Min tabell ser ut som liknande:
rs.AbsolutePosition är då inte med i tabellen, men det är det värde det får i rs:et (tror jag.)
Går det inte lika bra att lägga in numren i en array?
dim arr()
redim arr(50)
max = 0
while not rs.eof
plno = clng(rs("fldPlace"))
if plno > 0 and plno < 100 then
ub = ubound(arr)
if plno > ub then
redim preserve arr(ub+10)
end if
arr(plno) = rs.absoluteposition
if plno > max then max = plno
end if
rs.movenext
wend
------------------ essentitia preter non sans multiplicandum
Hm, nja jag får nog ge upp eller tänka om, arrayen placerar dom ockaå i "fel" ordning.
Det känns som jag måste kika över hela mitt script.
Jag tackar för hjälpen.