if trim(cxzjmc.Text)<>'''全部''' then
   begin      
       with adoquery7 do
            begin
               ..............
            end
   else
       with adoquery7 do
            begin
               ..........( 与上一个条件不同)
            end
  end;
请问为什么如果不符合条件也不执行下面的循环呢?

解决方案 »

  1.   

    if trim(cxzjmc.Text)<>'''全部''' then
       begin      
           with adoquery7 do
                begin
                   ..............
                end;
       end
       else
       begin
           with adoquery7 do
                begin
                   ..........( 与上一个条件不同)
                end
      end;
      

  2.   

    标准格式
    if 条件 then
    beginend
    else
      begin  end;
      

  3.   

    if 条件 then
    beginend
    else
      begin  end;
    最好按格式来!!
      

  4.   

    if trim(cxzjmc.Text)<>'''全部''' then
       begin      
           with adoquery7 do
                begin
                   ..............
                end
       else                       //end else
           with adoquery7 do
                begin
                   ..........( 与上一个条件不同)
                end
      end;                    //去掉请注意begin ... end 的搭配!