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; 程序是这样在的 我觉得很奇怪,
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是用的全角, 也有可能是两个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;
系统提示说当Eof为真的时候出现错误 这是什么原因呢?
你用的是不是又是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;
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;
程序是这样在的
我觉得很奇怪,
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;
程序是这样在的
我觉得很奇怪,
建议改成如下代码: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;
这是什么原因呢?
这样吧;
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;
而且用了4个RadioButton来作为选择条件