关于DLEPHI7 中dbchart1执行两个adoquery1语句出错，报某字段找不到？

Question

本人在写一个程序时，使用DBchart控件，有两个单选钮，按第一个执行一条查询，按第二个执行另一条查询，字段不同。每当单独执行，哪个都正确定，但理旦先执行一个，紧接着执行另一个单选钮时，就会提示先执行的查询结果字段找不到，查找了N多天也苦不到原因，请大侠解救！！下面是源码：    if radiobutton1.Checked = true then
    begin
      sqlstring := 'select xm,zjhm,csrq,gjdqdm,count(xm) as crcs from BJ_YW_T_CRJRYDK Where (crrq between ''' + start_date + '''' + ' and ' + '''' + end_date + ''') ' + ' GROUP BY xm, zjhm, csrq, gjdqdm HAVING COUNT(xm) ' + cxtj + cxtextedit1.Text + ' order by crcs desc';
    //showmessage(sqlstring);
      dbgrid1.Columns[0].Title.caption := '姓     名';
      dbgrid1.Columns[0].Width := 300;
      dbgrid1.Columns[0].FieldName := 'xm';
      dbgrid1.Columns[1].Title.caption := '证件号码';
      dbgrid1.Columns[1].Width := 186;
      dbgrid1.Columns[1].FieldName := 'zjhm';
      dbgrid1.Columns[2].Title.caption := '出生日期';
      dbgrid1.Columns[2].Width := 100;
      dbgrid1.Columns[2].FieldName := 'csrq';
      dbgrid1.Columns[3].Title.caption := '国家代码';
      dbgrid1.Columns[3].Width := 100;
      dbgrid1.Columns[3].FieldName := 'gjdqdm';
      dbgrid1.Columns[4].Title.caption := '出入次数';
      dbgrid1.Columns[4].Width := 100;
      dbgrid1.Columns[4].FieldName := 'crcs';      with adoquery1 do
      begin
        Close;
        sql.Clear;
        sql.Add(sqlstring);
        Open;
      end;
      if adoquery1.RecordCount > 0 then
      begin
        num := inttostr(adoquery1.RecordCount);
        statusbar1.Panels[1].Text := num;
        bitbtn3.Enabled := true;
        bitbtn6.Enabled := true;
        bitbtn1.Enabled := false;
        dbgrid1.Columns[0].font.Color := clRed;
        dbgrid1.Columns[1].font.Color := clWindowText;
        dbgrid1.Columns[2].font.Color := clWindowText;
        DBChart1.Title.Text[0] := '出入境人员过境次数统计示意图';
        with DBChart1 do
        begin
          with Series1 do
          begin
           //Series1.Clear;
            //series1.Active := false;
            adoquery1.Active := True;
            DataSource := adoquery1;
            XLabelsSource := 'xm';
            YValues.ValueSource := 'crcs';
          //  series1.Active := true;
          end;
        end;
      end
      else
      begin
        statusbar1.Panels[1].Text := '0';
        application.MessageBox('没有数据！', '提示', 64);
      end;
    end
    else if radiobutton2.Checked = true then
    begin
      sqlstring := 'select hc,jwgjbs,jngjbs,gjdqdm,count(hc) as crcs from BJ_YW_T_CRJJTGJDK Where (crrq between ''' + start_date + '''' + ' and ' + '''' + end_date + ''') ' + ' GROUP BY hc, jwgjbs, jngjbs, gjdqdm HAVING COUNT(hc) ' + cxtj + cxtextedit1.Text + ' order by crcs desc';
      dbgrid1.Columns[0].Title.caption := '车辆牌号';
      dbgrid1.Columns[0].Width := 200;
      dbgrid1.Columns[0].FieldName := 'hc';
      dbgrid1.Columns[1].Title.caption := '境外标识';
      dbgrid1.Columns[1].Width := 150;
      dbgrid1.Columns[1].FieldName := 'jwgjbs';
      dbgrid1.Columns[2].Title.caption := '境内标识';
      dbgrid1.Columns[2].Width := 150;
      dbgrid1.Columns[2].FieldName := 'jngjbs';
      dbgrid1.Columns[3].Title.caption := '国家地区';
      dbgrid1.Columns[3].Width := 100;
      dbgrid1.Columns[3].FieldName := 'gjdqdm';
      dbgrid1.Columns[4].Title.caption := '出入次数';
      dbgrid1.Columns[4].Width := 100;
      dbgrid1.Columns[4].FieldName := 'crcs';
      with adoquery1 do
      begin
        close;
        sql.Clear;
        sql.Add(sqlstring);
        //showmessage(sqlstring);
        Open;
      end;
      if adoquery1.RecordCount > 0 then
      begin
        num := inttostr(adoquery1.RecordCount);
        statusbar1.Panels[1].Text := num;
        bitbtn3.Enabled := true;
        bitbtn6.Enabled := true;
        bitbtn1.Enabled := false;
        dbgrid1.Columns[0].font.Color := clRed;
        dbgrid1.Columns[1].font.Color := clWindowText;
        dbgrid1.Columns[2].font.Color := clWindowText;
        DBChart1.Title.Text[0] := '出入境车辆过境次数统计示意图';
        with DBChart1 do
        begin
          with Series1 do
          begin
            //series1.Clear;
           // series1.Active := false;
            adoquery1.Active := True;
            DataSource := adoquery1;
            XLabelsSource := 'hc';
            YValues.ValueSource := 'crcs';
           // series1.Active := true;
          end;
        end;
      end
      else
      begin
        statusbar1.Panels[1].Text := '0';
        application.MessageBox('没有数据！', '提示', 64);
      end;
    end;
  end;

Answer 1

在行query前执行dbgrid1.Columns.Clear

Answer 2

reverzeng，试了一下，不行。出错：提示dbgrid1列值找不到。请再想想，有什么好着？多谢！！！

Answer 3

我还是认为是类似的问题,设断点查一下看在哪里出错了,应该是在open时出错的吧.

Answer 4

描述的时候，你自己都说清楚了，是按了某个按钮后，马上按另一个按钮，所以就是因为上一个adoquery还没执行完，你又要求执行另一个sql查询，当然会出问题，这个应该是这个数据源索引不够好，或者数据记录太大，导致adoquery的查询时间比较长，随意最好搞个变量来记录查询的状态