Då jag har ändrat mycket i min app. så måste jag fråga igen.
Jag visar numera mina författare i en lista. Här har jag två problem.
När jag skall lägga till i listan, så får jag med en "tommrad".
<code>
Dim Ret As Long
Dim a As String

a = Combo4.Text
Ret = SendMessageFind(List1.hwnd, LB_FINDSTRING, 0, (a))
If Ret = LB_ERR Then
einfo.Caption = "Lägger till :" & Combo4.Text
List1.AddItem Combo4.Text
snacka.Speak "Adding " & Combo4.Text
Else
List1.ListIndex = Ret
einfo.Caption = "Denna författare finns redan i listan."
snacka.Speak "Oh no"
End If
</code>
När jag sen skall spara innehållet ifrån listan, så skall detta ske i t_Songförfattare.
Vad jag förstår så måste jag loopa igenom listan, och försöker så här:
<code>
Dim x As Long
For x = 0 To List1.ListCount - 1
SQL = "Insert Into t_songForfattare(ArrNo,Författare)values('" & Trim(Text1(0)) & "',(Select For_Id FROM t_forfattare where namn = '" & List1.Text & "')"
Next
Set Rst = Con.Execute(SQL)
' MsgBox SQL
</code>
Men här stöter jag på problem, jag får inget värde med mig i List1.
Vad gör jag för fel?

För att loopa i en listview, se [Spara listview till textfil]

För adderingen så ser jag att du använder ett API för att först finna en position. Ta reda på när posterna blir blank genom att debugga , det är enklast så. Gör ett stopp om Combo4.Text = ""

Ex:

If Combo4.Text = "" Then
Msgbox "Combo4.Text är tom"
Else
List1.AddItem Combo4.Text
End If

/Pelle