my $Child = $Window->{Client}->AddMDIChild (
      -name         => "Child".$ChildCount++,
      -title => $title,
      -onResize => \&ChildSize,
    ) or die "Child";

    $Child->AddGrid (
        -name    => "Grid",
        -pos     => [0, 0],
        -rows    => 50,
        -columns => 10,
        -fixedrows    => 1,
        -fixedcolumns => 1,
        -editable => 1,
    ) or die "new Grid";

##</code><code>##

sub Grid_EndEdit {
    my ($row, $col) = @_;
    my $string=$Grid->GetCellText($row, $col);
    my $changeid=$Grid->GetCellText($row, 1);
    my $changeattribute=$Grid->GetCellText(0, $col);
    $dbh->do("UPDATE INV SET $changeattribute = ? WHERE CODE = ?" , undef, $string, $changeid);
}