method update_display = fun iter ->
    let data = self#get_data ~row:iter in
      self#set ~row:iter ~column:c_string (data.td_table.SQL_db.ta_name);
      self#set ~row:iter ~column:c_pkey
        (Dbf_misc.join ~sep:", " ~to_string:(fun c -> c.SQL_db.col_name)
           data.td_table.SQL_db.ta_pkey)