UniDBGrid without filter function in Runtime

[Timothy lam]

Hi,

I googled the information and using the following code. It can't generate the filter function in the DBGrid. Am I missing something else?

 

  while not ds_fields.Eof do
  begin
    with dbg_list.Columns.Add do
    begin
      FieldName := ds_fields.FieldByName('COLUMN_NAME').AsWideString;
      Title.Caption := ds_fields.FieldByName('COLUMN_NAME').AsWideString;
      Width := ds_fields.FieldByName('GRID_WIDTH').AsInteger;
      Font.Charset  := ANSI_CHARSET;
      Font.Name     := 'Verdana';
      DisplayMemo   := True;
      Sortable      := True;

      with TUniEdit.Create(Self) as TUniEdit do
      begin
         Left   := 10;
         Top    := 10;
         Parent := UniHiddenPanel1;
         Text   := '';
         Width := 30;
         Name   := 'Edit'+ds_fields.FieldByName('COLUMN_NAME').AsWideString;
      end;
      Filtering.Enabled := True;
      Filtering.editor  := TUniEdit(Self.FindComponent('Edit' + ds_fields.FieldByName('COLUMN_NAME').AsWideString));
    end;
    ds_fields.Next;
  end;
 

[Timothy lam]

Please ignore this. I found the problem is missing Columns.BeignUpdate and EndUpdate