【结】[问题]**

anla

对数据集进行查询操作,结果出来后，偶尔会弹出如下错误.如何避免这个错误的出现?经跟踪发现是代码都执行后出现的错误.....
在线等待回复....

anla

有没有人给解决啊?

anla

斑竹给关注下啊.

alang

这个错误是有对象没有创建就直接调用了
仔细检查一下代码吧

anla

哦,
我再仔细看看。

anla

我检查过了,没有4楼说的没有创建就使用的对象.
我做的是个查询功能,
通过查询条件查询出的记录显示在DataGrid上,
DataGrid 上可以更改一个CheckBox的值.
如果不对更改进行保存而进行下一个查询,
就会出现这个错误.

alang

请提供你的代码看看

anla

procedure TXBRYGL_FORM.BizFormShow(Sender: TObject);
var
SqlText :string;
begin

Et1_1.Clear;
CM1_1.Clear;
CM1_1.AddItem('',CM1_1);
with Qu1_1 do
  begin
    Close;
    CommandText := ' Select PAHB_ND From PA_HBGBDJ Where PKID is Not Null Group By PAHB_ND';
    try
     Open;
     First;
     While not eof do
      begin
        CM1_1.AddItem(FieldByname('PAHB_ND').AsString,CM1_1);
        next;
      end;
    except
     Close;
    end;
  end;
CM1_1.ItemIndex := 0;
SqlText := 'SELECT PA_HBGBDJ.* FROM PA_HBGBDJ WHERE PA_HBGBDJ.PAHB_XBBS '+
            ' < 0 and PA_HBGBDJ.Pkid is null';
DS1_1.DataSet.Close;
TSQLDataSet(DS1_1.DataSet).Sql.Text := SqlText;
DS1_1.DataSet.Open;
end;

procedure TXBRYGL_FORM.ToolButton8Click(Sender: TObject);
var
SqlText,sBM,sND,sXM:string;
begin
if DS1_1.DataSet.State = TDataSetState.dsEdit then
   begin
    DS1_1.DataSet.Cancel;
   end;
DS1_1.DataSet.Close;
SqlText := 'SELECT PA_HBGBDJ.* FROM PA_HBGBDJ WHERE PA_HBGBDJ.PAHB_XBBS '+
            ' < 0 and  PA_HBGBDJ.PAHB_XZBS <=0';
sXM := SysUtils.Trim(Et1_1.Text);
sBM := ' and PA_HBGBDJ.PAHB_BM = '''+DS1_BM.DataSet.FieldByName('FID').AsString+'''';
if CM1_1.ItemIndex <1 then
    sND := ' '
else
    sND := ' and PA_HBGBDJ.PAHB_ND ='''+CM1_1.Text+'''';
if sXM <> '' then
    begin
       with Qu1_XM do
        begin
          Close;
          CommandText := ' Select PKID From DI_ZG Where DIZG_XM = '''+sXM+'''';
          try
           Open;
           sXM := FieldByName('PKID').AsString;
          except
           Close;
          end;
        end;
       sXM := ' and PA_HBGBDJ.PAHB_XM='''+sXM+'''';
    end;
   SqlText := SqlText + sXM + sBM + sND ;
    DS1_1.DataSet.Close;
    TSQLDataSet(DS1_1.DataSet).Sql.Text := SqlText;
    DS1_1.DataSet.Open;
end;

aDragon

执行哪句出错了呢？

anla

procedure TXBRYGL_FORM.ToolButton8Click(Sender: TObject);
var
SqlText,sBM,sND,sXM:string;
begin
if DS1_1.DataSet.State = TDataSetState.dsEdit then
   begin
    DS1_1.DataSet.Cancel;
   end;
DS1_1.DataSet.Close;
SqlText := 'SELECT PA_HBGBDJ.* FROM PA_HBGBDJ WHERE PA_HBGBDJ.PAHB_XBBS '+
            ' < 0 and  PA_HBGBDJ.PAHB_XZBS <=0';
sXM := SysUtils.Trim(Et1_1.Text);
sBM := ' and PA_HBGBDJ.PAHB_BM = '''+DS1_BM.DataSet.FieldByName('FID').AsString+'''';
if CM1_1.ItemIndex <1 then
    sND := ' '
else
    sND := ' and PA_HBGBDJ.PAHB_ND ='''+CM1_1.Text+'''';
if sXM <> '' then
    begin
       with Qu1_XM do
        begin
          Close;
          CommandText := ' Select PKID From DI_ZG Where DIZG_XM = '''+sXM+'''';
          try
           Open;
           sXM := FieldByName('PKID').AsString;
          except
           Close;
          end;
        end;
       sXM := ' and PA_HBGBDJ.PAHB_XM='''+sXM+'''';
    end;
   SqlText := SqlText + sXM + sBM + sND ;
    DS1_1.DataSet.Close;
    TSQLDataSet(DS1_1.DataSet).Sql.Text := SqlText;
    DS1_1.DataSet.Open;
end;
这个事件执行完后,就弹出哪个错误,
而且不是每次都是如此,
偶尔出现的。