【搞定】[请求]资源包已经传了，为什么没有回复呢？**

songyun

挺急的，能帮看看吗？

atiger

传到哪里了？啥时上传的？文件名或者邮件主题是啥？

jiangyun

您的资源包,我己收到,正在看

jiangyun

楼主,这是您的查询按钮代码:
procedure TCXSJWG.Button1Click(Sender: TObject);

var  FilStr:string;

begin
FilStr:='';
  if ComboBox1.Text<>'' then FilStr:='xgdmc='''+ComboBox2.Text+'''';
  if ComboBox2.Text<>'' then
    begin
     if Filstr=''then FilStr:='nf='''+ComboBox3.Text+''''
     else Filstr:=Filstr+'and nf='''+ ComboBox3.Text+'''';
    end;
   if ComboBox3.Text<>'' then FilStr:='xw='''+ComboBox3.Text+'''';
  if FilStr<>'' then
    begin
     TSQLDataSet(DataSetBrokerCXSJJ.DataSet).SQLFilter:=FilStr;
     TSQLDataSet(DataSetBrokerCXSJJ.DataSet).SQLFiltered:=true;
     Dialogs.Showmessage(DataSetBrokerCXSJJ.DataSet.DataFetch.CommandText);
    end
  else TSQLDataSet(DataSetBrokerCXSJJ.DataSet).SQLFiltered:=false;
end;

看看上面红色的，都对不上，能查出来才怪呢。
下面的也不对，正确的写法:
procedure TCXSJWG.Button1Click(Sender: TObject);

var  FilStr:string;

begin
FilStr:='';
  if ComboBox1.Text<>'' then FilStr:='xgdmc='''+ComboBox1.Text+'''';
  if ComboBox2.Text<>'' then
    begin
     if Filstr=''then FilStr:='nf='''+ComboBox2.Text+''''
     else Filstr:=Filstr+'and nf='''+ ComboBox2.Text+'''';
    end;
   if ComboBox3.Text<>'' then FilStr:='xw='''+ComboBox3.Text+'''';
  if FilStr<>'' then
    begin
     TSQLDataSet(DataSetBrokerCXSJJ.DataSet).SQLFilter:=FilStr;
     TSQLDataSet(DataSetBrokerCXSJJ.DataSet).SQLFiltered:=true;
    end
  else TSQLDataSet(DataSetBrokerCXSJJ.DataSet).SQLFiltered:=false;
end;

songyun

搞定，谢谢您的热心解答。

songyun

结贴