Не стыковка SQL запроса и раскраски DBGrid

[artemavd]

Доброе утро! Возникла некая не стыковка запроса и раскраски DBGrid. Код раскраски (не маленький, но ее работа меня полностью устраивает):
Код раскраски выложил в файл, т.к. он очень большой.
а вот сам запрос:

   Form1.qry1.Active:=False;
   Form1.qry1.SQL.Text:='select * from export where raion=' + QuotedStr(Form1.sComboBox2.Text) + ' and export.[forma]=' + QuotedStr(Form1.sComboBox4.Text) + ' and export.[tip]' + Form1.sComboBox5.Text + QuotedStr(Form1.sComboBox6.Text) + ' and export.[kvartal]' + Form1.sComboBox7.Text + Form1.sComboBox8.Text + ' and export.[god]' + Form1.sComboBox9.Text + Form1.sComboBox10.Text;
   Form1.qry1.Open;
   Form1.ds1.DataSet:=Form1.qry1;

оба этих кода рабочие. Но, по-отдельности, т.е. если я включаю код раскраски и выполняю запрос в отдельной кнопке, то получаю ошибку EAccessViolation. Если не выполнять запрос, то раскраска работает. Как бы их объединить, чтобы раскраска работала всегда?

[evg_m]

попробуйте при переоткрытии отключать отображение.(disable/enable control)

form1,qr1.disableControls;
form1.qr1.close; //active:=false;
form1.qr1.sql.text:=
form1,ds1.dataset:=form1.qr1;//почему бы не сделать это один раз в InspectorObject
form1.qr1.open;
form1,qr1.enablecontrols;

if (compareStr(fieldByName('raion').as String, '48002') = 0) and
(fieldByName('raion').asInteger = 48002)

масло масляное.
вполне достаточно любого одного из этих условий

// with Form1.qry1 do
// begin
 ......
// end;

в вашем случае легко заменяется на такую конструкцию
если конечно в кодах не появится значение которое нельзя будет превратить в число.

case Form1.qry1.fieldByName('raion').AsInteger of
48002, 48003, 48004, 48005, 48006: begin
  RxDBGrid1.Canvas.Font.color := clRed;
  RxDBGrid1.Canvas.font.style := [fsBold];
end;

// МРП_2
48001, 48008, 48010, 48012, 48013, 48015, 48016, .....: begin
  RxDBGrid1.Canvas.Font.color := clGreen;
  RxDBGrid1.Canvas.font.style := [fsBold];
end;
.......
//МРП_8
48027: begin
  RxDBGrid1.Canvas.Font.color := clFuchsia;
  RxDBGrid1.Canvas.font.style := [fsBold];
end;

end;

[artemavd]

если конечно в кодах не появится значение которое нельзя будет превратить в число.

Да нет, не должно. У меня сверяется только по указанному полю, а там только число, другого быть не может.