Just nu i M3-nätverket
Gå till innehåll
caveman

sortera recordset

Rekommendera Poster

Är det nån som vet varför det inte går att ortera detta recordset i slutet av funktionen

 

Public Function sortrecordset(rsArray As Variant) As ADODB.Recordset

 

 

Dim rsResultat As ADODB.Recordset

Set rsResultat = New ADODB.Recordset

rsResultat.Fields.Append "ArtikelNr", adChar, 60, adFldMayBeNull

rsResultat.Fields.Append "Benamning", adChar, 35, adFldMayBeNull

rsResultat.Fields.Append "Fabrikat", adChar, 12, adFldMayBeNull

rsResultat.Fields.Append "System", adChar, 12, adFldMayBeNull

rsResultat.Fields.Append "BVArtNr", adChar, 12, adFldMayBeNull

rsResultat.Fields.Append "Lager", adChar, 50, adFldMayBeNull

rsResultat.Fields.Append "Lagerplats", adChar, 50, adFldMayBeNull

rsResultat.Fields.Append "Antal", adDouble, 8, adFldMayBeNull

rsResultat.Open

 

 

For iLoop = LBound(rsArray, 2) To UBound(rsArray, 2)

 

rsResultat.AddNew

rsResultat!ArtikelNr = Trim(rsArray(0, iLoop))

rsResultat!benamning = Trim(rsArray(1, iLoop))

rsResultat!fabrikat = Trim(rsArray(2, iLoop))

rsResultat!System = Trim(rsArray(3, iLoop))

rsResultat!BVArtNr = Trim(rsArray(4, iLoop))

rsResultat!Lager = Trim(rsArray(5, iLoop))

rsResultat!Lagerplats = Trim(rsArray(6, iLoop))

rsResultat!Antal = Trim(rsArray(7, iLoop))

rsResultat.Update

 

Next

 

 

rsResultat.Sort = "Antal asc"

 

Set sortrecordset = rsResultat

End Function

Dela detta inlägg


Länk till inlägg
Dela på andra webbplatser

Skapa ett konto eller logga in för att kommentera

Du måste vara medlem för att kunna kommentera

Skapa ett konto

Skapa ett nytt konto på vårt forum. Det är lätt!

Registrera ett nytt konto

Logga in

Redan medlem? Logga in här.

Logga in nu



×
×
  • Skapa nytt...