Dim filter As String = iif(tables("文件").filter > "", tables("文件").filter , "1=1")
For Each dr As dataRow In dataTables("文件夹").Select("文件类型 = '" & Values(Index) & "' And " & Filter)