1:
2:
3:

dataset.edit;
dataset.fieldbyname('bool_feld').AsBoolean := Value;
dataset.post;					

1:
2:
3:
4:
5:
6:
7:

beforeedit:
  wenn SortCol = ToBeEditedCol dann
    dataset.indexname = '' oder 'DEFAULT_ORDER' (oder hoffentlich bald was brauchbares :roll: )

dataset.edit;
dataset.fieldbyname('bool_feld').AsBoolean := Value;
dataset.post;					

1:
2:
3:
4:
5:

dataset.edit;
dataset.fieldbyname('bool_feld').AsBoolean := Value;
dataset.DisableControls;
dataset.post;
dataset.EnableControls;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:

procedure TMyDbGrid.DisableSort;
var
  loc_offset,
  loc_col    : integer;

  loc_names   : string;
  loc_fnames  : array of string;
  loc_fvalues : array of Variant;
begin
  if Assigned(DataSource) and Assigned(DataSource.DataSet) and
    (DataSource.Dataset is TClientDataset) then begin

    FSortDisabled := true;
    BeginUpdate;
    try
      SetLength(loc_fnames, TClientDataSet(DataSource.DataSet).FieldCount);
      SetLength(loc_fvalues, TClientDataSet(DataSource.DataSet).FieldCount);
      loc_names := '';

      for loc_col := 0 to Length(loc_fnames) - 1 do begin
        loc_fnames[loc_col] := TClientDataSet(DataSource.DataSet).Fields[loc_col].FieldName;
        loc_fvalues[loc_col] := TClientDataSet(DataSource.DataSet).FieldValues[loc_fnames[loc_col]];
        loc_names := loc_names + loc_fnames[loc_col] + ';';
      end;

      loc_names := copy(loc_names, 1, Length(loc_names) - 1);

      TClientDataSet(DataSource.DataSet).IndexName := 'DEFAULT_ORDER';
      TClientDataSet(DataSource.DataSet).First;

      if not TClientDataSet(DataSource.DataSet).Locate(loc_names, VarArrayOf(loc_fvalues), []) then
        ShowMessage('HEEELP');                                                                      

      { Bisherige Sortierung auch in der Visualisierung aufheben }
      if (dgIndicator in Options) then
        loc_offset := 1
      else
        loc_offset := 0;

      for loc_col := 0 to ColCount - 1 do
        if FArrow[loc_col + loc_offset] in [atUp, atDown] then
          FArrow[loc_col + loc_offset] := atNone;

      Invalidate;
    finally
      EndUpdate;
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

var
  loc_col    : integer;

  loc_names   : string;
  loc_fnames  : array of string;
  loc_fvalues : array of Variant;
begin
  ...
  try
    SetLength(loc_fnames, TClientDataSet(DataSource.DataSet).FieldCount);
    SetLength(loc_fvalues, Length(loc_fnames));
    loc_names := '';

    for loc_col := 0 to Length(loc_fnames) - 1 do begin
      loc_fnames[loc_col] := TClientDataSet(DataSource.DataSet).Fields[loc_col].FieldName;
      loc_fvalues[loc_col] := TClientDataSet(DataSource.DataSet).FieldValues[loc_fnames[loc_col]];
      loc_names := loc_names + loc_fnames[loc_col] + ';';
    end;

    loc_names := copy(loc_names, 1, Length(loc_names) - 1);

    TClientDataSet(DataSource.DataSet).IndexName := 'DEFAULT_ORDER';
    if not TClientDataSet(DataSource.DataSet).Locate(loc_names, VarArrayOf(loc_fvalues), []) then
       ShowMessage('HEEELP');
  ...
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

  ...

  if not TClientDataSet(DataSource.DataSet).Locate(loc_names, VarArrayOf(loc_fvalues), []) then begin
    TClientDataSet(DataSource.DataSet).First;

    loc_found := false;
    while not TClientDataSet(DataSource.DataSet).Eof and not loc_found do begin
      loc_found := true;
      loc_col   := 0;
      while (loc_col < Length(loc_fnames)) and loc_found do begin
        if loc_fvalues[loc_col] <> TClientDataSet(DataSource.DataSet).FieldValues[loc_fnames[loc_col]] then
          loc_found := false;
        inc(loc_col);
      end;

      if not loc_found then
        TClientDataSet(DataSource.DataSet).Next;
    end;
  end;

  ...