



guermantes wrote:2) Also, when the Year field is empty a zero is displayed in the report. Could one not just have it empty?


trixmoto wrote:Sorry, my fault for trying to code ad-hoc with testing!! Try this if you want to include the blank line you were after...
- Code: Select all
Select Case DropDown1.ItemIndex
Case 0 'CSV
If Not Unicode Then
name = SDB.ToAscii(name)
End If
Call f.WriteLine(name&" ("&list.Count&")")
Call f.WriteLine("")
Case 1 'HTML
Call f.WriteLine("<tr><td colspan=99><b>"&MapXML(name&" ("&list.Count&")",False)&"</b></td></tr>")
Call f.WriteLine("<tr><td colspan=99></td></tr>")
Case 2 'XLS
y = y+1
ws.Cells(y,1).Value = name&" ("&list.Count&")"
y = y+1
Case 3 'XML
Call f.WriteLine("<Playlist title='"&MapXML(name&" ("&list.Tracks.Count&")",True)&"'>")
Case 4 'TXT
If Not Unicode Then
name = SDB.ToAscii(name)
End If
Call f.WriteLine(name&" ("&list.Count&")")
Call f.WriteLine("")
End Select


Users browsing this forum: No registered users and 9 guests