select 日期 from 表单1后的问题请问如何实现呀？ 高手帮忙呀！！！！！

select   日期   from   表单1  
   
  将第一条日期记录赋给s1   第二条给s2   第三条给s3   一直到s9     如果没有9条就赋空值，而不出现异常。 问题点数：20、回复次数：5Top

1 楼helldream2002（）回复于 2004-05-04 18:45:41 得分 0

用CASE语句了啊，在第9条时做个判断就可以了Top

2 楼wfeng107（风风火火）回复于 2004-05-04 18:52:14 得分 0

谢谢helldream2002()能具体一些吗？Top

3 楼nibahan（菜农）回复于 2004-05-04 21:25:37 得分 10

select   date()   from   table_1  
  if   date().count<=9   then  
  begin  
  while   (not   eof)   and   i<=9   do  
  begin  
  s[i]:=date()[i].values;  
  i:=i+1;  
  next;  
  end;  
  end;  
  if   date().count<=8   then  
  begin  
  ..  
  s[9]:=nil  
  end;  
  s[9]=  
  第9條Top

4 楼wfeng107（风风火火）回复于 2004-05-05 21:13:19 得分 0

s[i]:=date()[i].values;     这一句该怎么理解呢？   s[i]:=query1[i].values;   可以吗？该如何写呀？？Top

5 楼helldream2002（）回复于 2004-05-05 22:06:21 得分 10

ado.close;  
  ..select   date   from   table  
  ado.open;  
  i:=1;  
  ado.first;  
  while   (not   ado.eof   )   do  
  begin  
      case   i   of  
          1:   s1:=   ado.fieldbyname('date').asstring;  
          2:   s2:=   ado.fieldbyname('date').asstring;  
          3:   s3   :=   ado.fieldbyname('date').asstring;  
          ...  
          9:   s8:=ado.fieldbyname('date').asstring;  
      end;  
      inc(i);  
      ado.next;  
  end;  
  end;  
  不知道你要那么多S1，S2，...s3干嘛我只好这么写了，不知道数组可不可以，如果可以那样更好了  
  这样就可以了，如果有第9条就有值，没有就是你的初使值空了，这个我没有测试，只是提供一个方法你自已去试一下！  
  Top

相关问题

• date
• 日期from表单
• select

• 帖主：wfeng107
• nibahan
• helldream2002

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载