主题：[求助]查询表导出报错呢

老师 下面是查询自定义函数 我在一个表下查询以后 导出报错呢..

'生成可见的列名称

Dim Cols,Vals As New List(of String)

Dim flt As String = "1=1"

For Each c As Col In Args(0).Cols

    If c.Visible = True

        cols.add(c.name)

    End If

Next

'生成查询条件

Vals.AddRange(Args(1).Replace("'","''").Replace("*","[*]").Split(","))  '查询值列表并保证其有效

Dim i As Integer = 0

For Each Val As String In Vals

    Dim temp As String = ""

    For Each c As String In Cols

        temp = temp & " Convert(" & c & ",'System.String') like '%" & Val & "%' Or"

    Next

    flt = flt & " and ("& temp.SubString(0, temp.length-3) & ")"

Next

Return flt

导出之前，先执行一下下面的代码

dim idxs as string = "-1,"
For Each r As Row In CurrentTable.rows
idxs &= r("_Identify") & ","
Next
CurrentTable.Filter = "[_Identify] in (" & idxs.trim(",") & ")"

Syscmd.Project.QuickExport()