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)