当前位置:首页
开发技术指南» 文章正文
    引言:
 

 

 ·global.asa文件中的错误处理    »显示摘要«
    摘要: 在数据库中有一些商品清单信息经常使用并且信息内容不经常改变,所以,对清单信息只取一次,保存在内存中. 我在global.asa文件的application_onstart中加入 conn.open"dsn=product,uid=sa;pwd=product" 我用的是sqlserver数据库 sql="select product_name from pro......
 ·关于console控制台问题    »显示摘要«
    摘要: 在进行编译时,得出的结果,一闪而过,看不出来。 我想问得出的结果,能否像vc的console那样可以停留的? 谢谢,bow! ......


sos关于数据库数据计算的问题

数据库是access型的,用ADO联结,字段有name(sting型)、   sj(integer型),  
  库中数据假设如下  
  name         sj  
  xc             100  
  xc             500  
  dc             30  
  dc             100  
   
  请帮忙分析一下下面的程序的问题:  
  z:=0;  
  for   m:=1   to   table1.recordcount   do  
  begin  
  z:=z+table1sj.value;  
  table1.next;  
  end;  
  此段代码运行后能够得出正确的库中所有sj字段值的和。  
   
  z:=0;  
  for   m:=1   to   table1.recordcount   do  
  begin  
  if   table1name.value=edit1.text   then   z:=z+table1sj.value  
  else  
  table1.next;  
  end;  
  此段代码运行后却不能得出正确的结果,假设edit1.text:=xc则此段代码运行后得出结果不是600而是400(即100加4次),百思不得其解!请高手指点!

NO.1   作者: haoco

将你的代码改为:  
  table1.First;  
  z:=0;  
  for   m:=1   to   table1.recordcount   do  
  begin  
      if   table1name.value=edit1.text   then   z:=z+table1sj.value;  
      table1.next;//不管是不是Name=XC都要下移  
  end;  
 


 ·如何退出 过程,或函数     »显示摘要«
    摘要: 如: 在表单的load事件里: select 1 use aa select 2 use bb if text1.value = "" 退出本过程,不继续后面的语句了~ endif ... messagebox("...") ...... ......
» 本期热门文章:

©2000-2007 All Rights Reserved. 最佳浏览:1024X768 MSIE