lst.Initialize
lst.AddAll(tvData.Items)
For i=0 To lst.Size-1
For j= 1 To 5 'read columns
strValue=""
If val(j) <>Null Then strValue=val(j).Replace(CRLF,"<br/>")
If strValue.Length<600 Then
Report=Report &"<td>" & strValue &"</td>"
Else
Report=Report & "<td>-</td></tr></table><table><tr><td width='100%'>"& strValue&"</td></tr></table><table><tr>"
Report=Report & strFormat
End If
Next
Report=Report&"</tr><tr>"
Next
Report=Report&"</tr></table>"
File.WriteString("C:\temp", "list.html",Report&"</font></body></html>" )
fx.ShowExternalDocument(File.GetUri("c:\temp", "list.html"))