if RadioButton.Checked then
DBGrid1.DataSource.DataSet.Open else
DBGrid1.DataSource.DataSet.Close;

解决方案 »

  1.   

    procedure TFormBujige.Button1Click(Sender: TObject);
    begin
      if RadioButton1.checked then
        begin
             ADOQueryDB1.Close;
             ADOQueryDB1.sql.clear;
             ADOQueryDB1.sql.add('select * From AA');
             ADOQueryDB1.Open;
        end;
    if RadioButton2.checked then
        begin
             ADOQueryDB1.Close;
             ADOQueryDB1.sql.clear;
             ADOQueryDB1.sql.add('select * From BB');
             ADOQueryDB1.Open;
        end;
    程序是这样在的
    我觉得很奇怪,
      
      

  2.   

    procedure TFormBujige.Button1Click(Sender: TObject);
    begin
      if RadioButton1.checked then
        begin
             ADOQueryDB1.Close;
             ADOQueryDB1.sql.clear;
             ADOQueryDB1.sql.add('select * From AA');
             ADOQueryDB1.Open;
        end;
    if RadioButton2.checked then
        begin
             ADOQueryDB1.Close;
             ADOQueryDB1.sql.clear;
             ADOQueryDB1.sql.add('select * From BB');
             ADOQueryDB1.Open;
        end;
    程序是这样在的
    我觉得很奇怪,
      
      

  3.   

    没看出什么问题,除了一个2是用的全角, 也有可能是两个if 引起的逻辑问题。
    建议改成如下代码:procedure TFormBujige.Button1Click(Sender: TObject);
    begin
         ADOQueryDB1.Close;
         ADOQueryDB1.sql.clear;     if RadioButton1.checked then
              ADOQueryDB1.sql.add('select * From AA')
         else
              ADOQueryDB1.sql.add('select * From BB');     ADOQueryDB1.Open;
    end;
      

  4.   

    系统提示说当Eof为真的时候出现错误
    这是什么原因呢?
      

  5.   

    你用的是不是又是Access?
    这样吧;
    procedure TFormBujige.Button1Click(Sender: TObject);
    begin
         if ADOQueryDB1.Active  then
         ADOQueryDB1.Cancel;
         ADOQueryDB1.Close;
         ADOQueryDB1.sql.clear;
         if RadioButton1.checked then
              ADOQueryDB1.sql.add('select * From AA')
         else if RadioButton2.Checked then
              ADOQueryDB1.sql.add('select * From BB') ;
         ADOQueryDB1.Open;
    end;
      

  6.   

    用的是SQL Server
    而且用了4个RadioButton来作为选择条件