save filter of a table

[manu]

can you help me?


I am trying to make a filter in a file .csv and save the result in a new file csv , but on having save this table he save the table completes not the filtered results.


A Greeting.

Thank you.

[Erel]

You should create a new table, and copy all the filtered rows in the old table to the new table (row by row).

[davelew1s]

Hi!
I am trying to do something similar but cannot work out how to copy the old table to the new table row by row, any help?
Dave.

[specci48]

Hi davelew1s,

since you can't copy a complete row directly, you have to copy cell by cell:

Sub Globals
End Sub

Sub App_Start
	
	' defining both tables with the same columns
	Table1.AddCol(cString,"Col1",50,False)
	Table1.AddCol(cString,"Col2",50,False)
	Table2.AddCol(cString,"Col1",50,False)
	Table2.AddCol(cString,"Col2",50,False)
	
	' adding six rows to table1
	Table1.AddRow("row1","value1")
	Table1.AddRow("row2","value2")
	Table1.AddRow("row3","value1")
	Table1.AddRow("row4","value2")
	Table1.AddRow("row5","value1")
	Table1.AddRow("row6","value2")
	
	' setting a filter => three rows left
	Table1.Filter("Col2 = 'value2'")
	
	' copy filtered rows from table1 to table2 (cell by cell)
	Table2.Clear
	For i = 0 To Table1.RowCount - 1
		Table2.AddRow()
		For j = 0 To Table1.ColCount - 1
			Table2.Cell(Table2.ColName(j),i) = Table1.Cell(Table1.ColName(j),i)
		Next
	Next
	
	Form1.Show
End Sub

specci48

[davelew1s]

Hi specci48!
Thanks that works great now.

Dave.