Código Delphi [-] DMList.QApuntes.Close; DMList.QApuntes.SQL.Text := 'Select * From Apuntes Where (coalesce(familia,'') >= '+ QuotedStr(DesdeFamilia.Text)+') and (coalesce(familia,'') <= '+ QuotedStr(HastaFamilia.Text)+')'; DMList.QApuntes.Open;
DMList.QApuntes.Close; DMList.QApuntes.SQL.Text := 'Select * From Apuntes Where (coalesce(familia,'') >= '+ QuotedStr(DesdeFamilia.Text)+') and (coalesce(familia,'') <= '+ QuotedStr(HastaFamilia.Text)+')'; DMList.QApuntes.Open;