Код:
DataModule2.QueryGRP.SQL.Text:='SELECT SimpleTime,Chann01,Chann02,Chann03,Chann04'+
' FROM RGBTEC4.dbo.Data_25010_4_0_8'+
' where SimpleTime between :Param1 and :Param2 ';
DataModule2.QueryGRP.Parameters.ParamByName('Param1').Value:=DateTimePicker1.DateTime;
DataModule2.QueryGRP.Parameters.ParamByName('Param2').Value:=DateTimePicker3.DateTime;
DataModule2.QueryGRP.Open;
if CheckBox1.Checked = False then
DataModule2.QueryGRP.FieldByName('Chann01').Value:=False;
if CheckBox2.Checked = False then
DataModule2.QueryGRP.FieldByName('Chann02').Visible:=False;
if CheckBox3.Checked = False then
DataModule2.QueryGRP.FieldByName('Chann03').Visible:=False;
if CheckBox4.Checked = False then
DataModule2.QueryGRP.FieldByName('Chann04').Visible:=False;
Вот так вот все работает как надо. Но проблема в другом получатется при экспорте в Excel все равно передаютс все данные. Так как я просто скрываю колонки.