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.