Forum: Datenbanken
by danten,
15. Aug 2012
I am sorry, Sorry, I forgot to change the sign:
Accept := (Length(f.AsString)>0) and (f.AsString > frm_export.sEdit1.Text) and (f.AsString <= frm_export.sEdit2.Text);
new
Accept := (Length(f.AsString)>0) and (f.AsString >= frm_export.sEdit1.Text) and (f.AsString <= frm_export.sEdit2.Text);
is work.
Thanks all.
Forum: Datenbanken
by danten,
15. Aug 2012
OK,datamodule:
procedure Tdm.tab_dodavatelFilterRecord(DataSet: TDataSet; var Accept: Boolean);
var
f:TField;
begin
f := Dataset.FieldByName('Firma');
Accept := (Length(f.AsString)>0) and (f.AsString > frm_export.sEdit1.Text) and (f.AsString <= frm_export.sEdit2.Text);
end;
MainForm:
Forum: Datenbanken
by danten,
15. Aug 2012
Write an example here is easy, but for you a problem.:roll:
with dm.ds_distributor.DataSet do begin
Filtered := False;
Filter := 'Firma <> ' + QuotedStr('A') + ' AND ' +
'Firma <= ' + QuotedStr('D');
Filtered := True;
end;
That's what I needed without google ....
Forum: Datenbanken
by danten,
14. Aug 2012
OK,here is a possibility of something like Uppercase and Lowercase, as well as the ability to input QuotedStr array ?
with dm.ds_distributor.DataSet do begin
Filtered := False;
Filter := 'Firma = ' + QuotedStr(Uppercase('A')) + ' OR ' +
'Firma = ' + QuotedStr(Uppercase('D')) + ' OR ' +
'Firma = ' + QuotedStr(Lowercase('A')) + ' OR ' +
'Firma = ' + QuotedStr(Lowercase('D'));
...
Forum: Datenbanken
by danten,
14. Aug 2012
Hi friends,
I need the DBGrid display only records from the "A" to "D".
Thanks