Help for this page

Select Code to Download

Select or download this

    my $Child = $Window->{Client}->AddMDIChild (
      -name         => "Child".$ChildCount++,
...
        -fixedcolumns => 1,
        -editable => 1,
    ) or die "new Grid";

Select or download this

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