【搞定】查找数据时报错!帮忙看一下.**

YZQH

我在筛选数据是出现下面的错误提示,List index out of bounds (-1)

我的代码是这样的,不知道有没什么问题?
procedure TXMGZBGCX.Button1Click(Sender: TObject);
    var s1,s2: string;
    var cSelectsql : string;
   begin
     s1 := DataLocateComboBox1.DataField;
     s2 := DataLocateComboBox2.DataField;
     cSelectsql := 'select * from  IT_WORKREPORT where FPostDept := s1 and FPoster := s2';
     dsbmaster.DataSet.open;
     if dsbmaster.DataSet.RecordCount >= 0 then
     begin
       TSQLDataSet(dsbmaster.DataSet).SQLFilter := cSelectsql;
       TSQLDataSet(dsbmaster.DataSet).SQLFiltered := True;
       dsbmaster.DataSet.close;
     end;
  end;
end.

jiahaiminghr

调试运行一下，看错误定位在哪里。

感觉和你这段代码没有关系。

lisb

代码这样写有问题，这样改一下试试
procedure TXMGZBGCX.Button1Click(Sender: TObject);
var
  s1,s2: string;
  cSelectsql : string;
begin
  // s1 := DataLocateComboBox1.DataField;
  // s2 := DataLocateComboBox2.DataField;
  //s1,s2 的值应该通过DataLocateComboBox1，DataLocateComboBox2所绑定的数据集得到，比如
  // DataLocateComboBox1绑定的数据集代理是DataSetBroker1,关键字段是FID
  // DataLocateComboBox1绑定的数据集代理是DataSetBroker2,关键字段是FID
  s1 := DataSetBroker1.DataSet.FieldByName('FID')asString;
  s2 := DataSetBroker2.DataSet.FieldByName('FID')asString;

  cSelectsql := 'select * from  IT_WORKREPORT where FPostDept = '''+s1+''' and FPoster = '''+s2+'''';
  dsbmaster.DataSet.open;
  if dsbmaster.DataSet.RecordCount >= 0 then
  begin
    TSQLDataSet(dsbmaster.DataSet).SQLFilter := cSelectsql;
    TSQLDataSet(dsbmaster.DataSet).SQLFiltered := True;
  //  dsbmaster.DataSet.close;  这一句不应该要了
  end;
end;

YZQH

我按照您的提示改过之后，按纽不起作用．代码如下：
procedure TXMGZBGCX.FormDocCreate(Sender: TObject);
begin
         //
end;

procedure TXMGZBGCX.FormDocDestroy(Sender: TObject);
begin
//
end;

procedure TXMGZBGCX.DataGrid1DblClick(Sender: TObject);
begin
  PageControl1.ActivePage :=TabSheet2;
end;

procedure TXMGZBGCX.Button1Click(Sender: TObject);
var s1,s2: string;
var cSelectsql : string;
begin
s1 := DataSetBroker1.DataSet.FieldByName('FPostDeptName').AsString;
s2 := DataSetBroker1.DataSet.FieldByName('FPosterName').AsString;
   cSelectsql := 'select * from  IT_WORKREPORT where FPostDept := '''+s1+''' and FPoster := '''+s2+'''';
   dsbmaster.DataSet.open;
   if dsbmaster.DataSet.RecordCount >= 0 then
   begin
   TSQLDataSet(dsbmaster.DataSet).SQLFilter := cSelectsql;
   dsbmaster.DataSet.Filtered:= True;
   end;
end;
end.

提示错误没有了

YZQH

查询数据集中只有一条数据可以不通过DataLocateComboBox1字段值筛选，那我的查询数据集中有多条数据，那怎么辨别是筛选哪条呢？
s1 := DataSetBroker1.DataSet.FieldByName('FPostDeptName').AsString;
s2 := DataSetBroker1.DataSet.FieldByName('FPosterName').AsString;
cSelectsql := 'select * from  IT_WORKREPORT where FPostDept := '''+s1+''' and FPoster := '''+s2+'''';

lisb

dsbmaster.DataSet.Filtered:= True;
要改成    TSQLDataSet(dsbmaster.DataSet).SQLFiltered := True;
s1 := DataSetBroker1.DataSet.FieldByName('FPostDeptName').AsString;这样写s1得到的值就是 DataSetBroker1对应数据集的当前所选择的那一行的FPostDeptName字段的值

Akon

由于楼主长时间未跟贴,此帖先结,有问题请开新帖.