Good Morning John,


you need a first field with a unique content to adress a row for the command
callback. Ok, here a little trick:


sub doDBItable {
    my $top = MainWindow->new;
    my $tkdbi = $top->DBITable (
            -sql => 'select CONCAT(name,pseudonym,age),* from user',
            -dbh => $dbh,
            -display_id => 0, # --- dont display the merged id!
            -debug => 1,)->pack(expand => 1, -fill => 'both');
}


I hope this helps.