let table_of_index = fun index -> match index.idx_columns with | [] -> Dbf_misc.ie () | hd :: _ -> hd.col_table