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);
}