version 6.50 0 Form1 238 268 0 0 0 0 Sub designer addform(Form1,"Form1","",220,220,220)@ addbutton(form1,btnInitTable,45,45,75,23,"Init",212,208,200,0,0,0,True,True,9)@ addtextbox(form1,TextBox2,85,10,75,22,"23.345",255,255,255,0,0,0,True,True,False,9)@ addtextbox(form1,TextBox1,5,10,75,22,"12,000.23",255,255,255,0,0,0,True,True,False,9)@ addtable(form1,Table2,0,160,235,80,"",245,245,245,0,0,0,True,True,9)@ addbutton(form1,btnSave,130,45,75,23,"Save",212,208,200,0,0,0,True,True,9)@ addtable(form1,Table1,0,75,235,80,"",245,245,245,0,0,0,True,True,9)@ End Sub @EndOfDesignText@ Sub Globals 'Declare the global variables here. End Sub Sub App_Start Form1.Show End Sub Sub btnSave_Click Table1.SaveCSV(AppPath&"\Table1.csv",",",False) Table2.SaveCSV(AppPath&"\Table2.csv",",",False) End Sub Sub btnInitTable_Click TextBox1.Text=Format(12345.2345,"N3") TextBox2.Text=Format(45.2345,"N3") Table1.AddCol(cString,"Test1",40) Table1.AddCol(cNumber,"Test2",45) Table1.AddCol(cNumber,"Test3",45) Table1.AddCol(cNumber,"Test4",45) Table1.AddCol(cString,"Test5",55) ' Table1.AddRow("ABC",12000,14000,120.023,"Steel Peg") Table1.AddRow("ABC",TextBox1.Text,TextBox2.Text,120.023,"Steel Peg") Table2.AddCol(cString,"Test1",40) Table2.AddCol(cString,"Test2",45) Table2.AddCol(cString,"Test3",45) Table2.AddCol(cString,"Test4",45) Table2.AddCol(cString,"Test5",55) ' Table2.AddRow("ABC","12000","14000","120.023","Steel Peg") Table2.AddRow("ABC",TextBox1.Text,TextBox2.Text,120.023,"Steel Peg") ' Table2.Cell("Test2",0)=Format(12000,"N0") ' Table2.Cell("Test3",0)=Format(14000,"N0") ' Table2.Cell("Test4",0)=Format(120.023,"N3") End Sub