帮忙修改一下查询代码,谢谢!!!
procedure TDAG.ToolButton1Click(Sender: TObject);
var
lFilter: String;
begin
if DataSetBroker1.DataSet.Active then
begin
lFilter := SysUtils.Trim(editsearch.Text);
if lFilter <> '' then lFilter := 'Name like ''%'+lFilter+'%''';
TSqlDataSet(DataSetBroker1.DataSet.FieldByName('WJML')).UserFilter :=lFilter;
// dsbCustomerIndex(nil);
//RefreshIndexPage;
end;
end;