求高手指点

set rs=server.createobject("ADODB.RecordSet")
sql="select * from produit where huohao='"&nowhuohao&"' and id_ku="&nowku
rs.open sql,conn,1,3
  if rs("kuwei")<>nowkuwei then
  rs.addnew
  rs("id_bigclass")=rs_produit("id_bigclass")
  rs("id_smallclass")=rs_produit("id_smallclass")
  rs("title")=rs_produit("title")
  rs("huohao")=rs_produit("huohao")
  rs("id_ku")=rs_produit("id_ku")
  rs("kuwei")=nowkuwei
  rs("shulian")=nowshulian
  rs("danwei")=rs_produit("danwei")
  rs("price")=rs_produit("price")
  rs("price2")=nowpinprice2
  rs("guige")=rs_produit("guige")
  rs("tm")=rs_produit("tm")
  rs("sl")=rs_produit("sl")
  rs("zl")=rs_produit("zl")
  rs("tz")=rs_produit("tz")
  rs("baojin")=rs_produit("baojin")
  rs("class")=rs_produit("class")
  rs("duihuan")=rs_produit("duihuan")
  rs("tichen_type")=rs_produit("tichen_type")
  rs("tichen")=rs_produit("tichen")
  rs("photo")=rs_produit("photo")
  rs("beizhu")=rs_produit("beizhu")
  rs("gys")=rs_produit("gys")
    else   
rs("shulian")=rs("shulian")+nowshulian
  rs("price2")=nowpinprice2
  rs.update
end if
这个当货号与库位与记录相同时，进行更新数量价格，否则新增记录，测试有时可以有时不行，不知什么问题，请高手帮忙呀，新手

1. <%
   
2. set rs=server.createobject("ADODB.RecordSet")
   
3. sql="select * from produit where huohao='"&nowhuohao&"' and id_ku="&nowku
   
4. rs.open sql,conn,1,3
   
5. if  rs.eof then
   
6. rs.addnew
   
7.   rs("id_bigclass")=rs_produit("id_bigclass")
   
8.   rs("id_smallclass")=rs_produit("id_smallclass")
   
9.   rs("title")=rs_produit("title")
   
10.   rs("huohao")=rs_produit("huohao")
    
11.   rs("id_ku")=rs_produit("id_ku")
    
12.   rs("kuwei")=nowkuwei
    
13.   rs("shulian")=nowshulian
    
14.   rs("danwei")=rs_produit("danwei")
    
15.   rs("price")=rs_produit("price")
    
16.   rs("price2")=nowpinprice2
    
17.   rs("guige")=rs_produit("guige")
    
18.   rs("tm")=rs_produit("tm")
    
19.   rs("sl")=rs_produit("sl")
    
20.   rs("zl")=rs_produit("zl")
    
21.   rs("tz")=rs_produit("tz")
    
22.   rs("baojin")=rs_produit("baojin")
    
23.   rs("class")=rs_produit("class")
    
24.   rs("duihuan")=rs_produit("duihuan")
    
25.   rs("tichen_type")=rs_produit("tichen_type")
    
26.   rs("tichen")=rs_produit("tichen")
    
27.   rs("photo")=rs_produit("photo")
    
28.   rs("beizhu")=rs_produit("beizhu")
    
29.   rs("gys")=rs_produit("gys")
    
30. else
    
31.   rs("shulian")=rs("shulian")+nowshulian
    
32.   rs("price2")=nowpinprice2
    
33. end if
    
34. 
    
35. rs.update
    
36. rs.close
    
37. set rs=nothing
    
38. %>

复制代码

xuanxiao 发表于 2019-7-17 20:30

谢谢，十分感谢
这样是能更新数量与单价，我的意思是当我输入的Kuwei字段值会与记录集数据库中相同时，执行更新数量与单价，如当前输入的Kuwei值与记录集数据库中不相同时，则新增新记录，条件比对要在相同货号的基础上

胡彬 发表于 2019-7-19 09:43
谢谢，十分感谢
这样是能更新数量与单价，我的意思是当我输入的Kuwei字段值会与记录集数据库中相同时 ...

你增加一个判断就行了 创建了记录集 就可以执行查询 和修改操作

胡彬 发表于 2019-7-19 09:43
谢谢，十分感谢
这样是能更新数量与单价，我的意思是当我输入的Kuwei字段值会与记录集数据库中相同时 ...

1. 
   
2. 
   
3. 
   
4. <%
   
5. set rs=server.createobject("ADODB.RecordSet")
   
6. sql="select * from produit where huohao='"&nowhuohao&"' and id_ku="&nowku
   
7. rs.open sql,conn,1,3
   
8. if not rs.eof then
   
9.                 if   nowkuwei=rs("kuwei") then
   
10.                 &#160;&#160;rs("shulian")=rs("shulian")+nowshulian
    
11.                 &#160;&#160;rs("price2")=nowpinprice2
    
12.       else
    
13.             rs.addnew
    
14. &#160;&#160;       ' ..........所有新增记录代码
    
15. &#160;     &#160;rs("gys")=rs_produit("gys")
    
16.          ........               
    
17.       end if       
    
18.           
    
19. rs.update       
    
20.          
    
21. end if
    
22. rs.close
    
23. set rs=nothing
    
24. %>
    

复制代码