Table filtering in two fields with two comboboxes 2

[aliosman]

I want to filter a table. IN the table I don`t have any indexed fileds. I have one class field and one lesson field.
NOW the problem is how can I filter this table with this two comboboxes. one of them for classes other one for lessones. It must be filtered with both of comboboxes.

I tried it, when i choose CLASS(1.combobox)table is filtered by classes.It is OKAY. But when I choose LESSON (2.combobox) Table is filtered only by lessons. it is not filtering with both of them at the same time..

thanks...

 

[towerbase]

Can you show the code that you use to filter the table?

Andrew
Hampshire, UK

 

[hilfy]

Are you using the Filter property or are you using the OnFilterRecord event? For this task, I would probably use the OnFilterRecord event. It would look something like this:

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept := False;
  if (combobox1.ItemIndex >= 0) then
  begin
    Accept := (Table1.FieldByName('CLASS').AsString = 
                combobox1[combobox1.ItemIndex]);
    if Accept and (combobox2.ItemIndex >= 0) then
      Accept := (Table1.FieldByName('LESSON').AsString = 
                  combobox2[combobox2.ItemIndex]);
  end;
end;

-Dell

 

[towerbase]

Hilfy's code can be simplified as follows:-

procedure TForm1.Table1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  Accept := (Table1.FieldByName('class').AsString=ComboBox1.Text) and (Table1.FieldByName('lesson').AsString=ComboBox2.Text);
end;

Andrew
Hampshire, UK

 

[hilfy]

Towerbase's code is good if you'll ALWAYS have values in both ComboBox1 and ComboBox2. However, if you will sometimes have only ComboBox1, you'll have to use something like my code. Both are right, they just cover different circumstances.

-Dell

 

[towerbase]

The original requirement was for both ComboBoxes to be used for the filtering. So I don't know why you need to test for ItemIndex to be >= 0.

Maybe I don't understand the problem?



Andrew
Hampshire, UK