Código Delphi [-]if not CheckBox1.Checked then begin {etc, etc...} dm_dados.sqlConVenta.Open; DataSource1.DataSet := dm_dados.sqlConVenta; end else begin {etc, etc...} sql_sem_filtro.Open; DataSource1.DataSet := sql_sem_filtro; end;
if not CheckBox1.Checked then begin {etc, etc...} dm_dados.sqlConVenta.Open; DataSource1.DataSet := dm_dados.sqlConVenta; end else begin {etc, etc...} sql_sem_filtro.Open; DataSource1.DataSet := sql_sem_filtro; end;