下面是DataLocateComboBox 的相关代码
procedure TJSDRZ.DataLocateComboBoxCZGCHCloseUp(Sender: TObject; Accept: Boolean);//操作过程查询
begin
if DataSetBrokerJSDRZ.DataSet.FieldByName('czgch').AsString='全部' then
begin
TSQLDataSet(DataSetBrokerJSDRZ.DataSet).UserFilter := '1=1';
TSQLDataSet(DataSetBrokerJSDRZ.DataSet).open;
end
else
begin
TSQLDataSet(DataSetBrokerJSDRZ.DataSet).UserFilter := 'czgch='''+DataSetBrokerJSDRZ.DataSet.FieldByName('czgch').AsString+'''';
TSQLDataSet(DataSetBrokerJSDRZ.DataSet).open;
end;