Jag vill göra en generell function som fyller en lista.
I vanliga fall ser det ut:

...
form1.list1.additem rs!kolumn1
...

jag skull vilja ha en function som jag skickar två variabler till, namnet på listan och namnet på kolumnen. Dessa använder sig funktionen av ex

function fyllalista(temp_lista, temp_kolumn)
...
form1.temp_lista.additem rs!temp_kolumn
...

jag får inte detta att funka ngn som vet?

//almen

Hej.

Här är en funktion jag skrev för längesen.
Men den är fortfarande användbar... Du kan säkert optiomera den.

<code>
Public Sub FillData(ByRef ctrl As Control, ByRef rst As ADODB.RecordSet, ByRef strDataField As String, Optional ByRef strIDField As String, Optional DoClear As Boolean = True)
With ctrl
If DoClear Then
.Clear
End If
If strIDField <> "" Then
While Not rst.EOF
.AddItem rst(strDataField)
.ItemData(.NewIndex) = rst(strIDField)
rst.MoveNext
Wend
Else
While Not rst.EOF
.AddItem rst(strDataField)
rst.MoveNext
Wend
End If
End With
End Sub

</code>


//fredda