Public Sub ExportTableToCSV
Dim lstdata As List
lstdata.Initialize
Dim rs As ResultSet = B4XTableM.sql1.ExecQuery("SELECT * FROM data")
Do While rs.NextRow
Dim row(B4XTableM.Columns.Size) As String
For i = 0 To B4XTableM.Columns.Size - 1
Dim c As B4XTableColumn = B4XTableM.Columns.Get(i)
row(i) = rs.GetString(c.SQLID)
Next
lstdata.Add(row)
Loop
rs.Close 'lstdata looks to be totally legitimate
Dim su As StringUtils
Try
su.SaveCSV(dirAppData, "Cashflow2.csv", ",", lstdata) 'error happens here
Catch
Log("========" & LastException.Message & "========")
End Try
End Sub