ok
I have figured out where the file is that I can write to(File.DirCocuments,"history.csv")
When I run this I get "'Wrong number of values." in the log.
and when I open the table later, there is not a new row added?
The file:history.csv has 7 fields separated by "," like a regular csv file.
I have figured out where the file is that I can write to(File.DirCocuments,"history.csv")
When I run this I get "'Wrong number of values." in the log.
and when I open the table later, there is not a new row added?
The file:history.csv has 7 fields separated by "," like a regular csv file.
B4X:
Private Sub Application_Start:
Table4.SetColumnsWidths(Array As Int(100dip,100dip,100dip,100dip,100dip,100dip,100dip, 100%x - 700dip))
sub End
B4X:
Sub AddTofile_click
'
' First_name,Last_name,birth_date,birth_time,birth_state,birth_st_abv,birth_city
'
If File.Exists(File.DirDocuments,"History.csc") Then
Person1_Saved= First_Name_1.Text & "," & Last_Name_1.Text
Person1_Saved = Person1_Saved & "," & lblfirstDate.Text & "," & LblTime.Text
Person1_Saved = Person1_Saved & "," & State.Text & "," & Temp_TextField.text & "," & City.TEXT
Table4.AddRow(Array As String(Person1_Saved))
Table4.SaveTableToCSV(File.DirDocuments, "History.csv")
Else
File.Copy(File.DirAssets,"History.csv" ,File.DirDocuments,"History.csv")
Person1_Saved= First_Name_1.Text & "," & Last_Name_1.Text
Person1_Saved = Person1_Saved & "," & lblfirstDate.Text & "," & LblTime.Text
Person1_Saved = Person1_Saved & "," & State.Text & "," & Temp_TextField.text & "," & City.TEXT
Table4.AddRow(Array As String(Person1_Saved))
End If