删除时遇到问题！！！！！！！！！！！帮帮忙！！！！

Question

我的代码如下：
sql1 = "select qsrq,zjzh,cjje,czfs,khlb from cjb"
Set rs1 = cn1.Execute(sql1)
If rs1!khlb = "31" Then
Set rs2 = cn1.Execute("select sum(cjje)*2.5/10000 as jfsl from cjb where zjzh=" & rs1!  zjzh & "")
   cn1.Execute ("insert into zzb " & " values(" & rs1!zjzh & "," & rs2!jfsl & ")")
   cn1.Execute ("delete from cjb where zjzh=" & rs1!zjzh & "")    
   rs1.MoveNext 
else if .............
......................
如果不要第六句删除语句时，一切正常。加上删除语句，要报语法错误！！！！！
我的本意时查找到一条记录，把ZJZH相同的行的CJJE全部加起来，插入表ZZB中之后，删除CJB中一些数据！！！！！！！！！

Answer 1

如果zjzh字段是字符型的就:
cn1.Execute ("delete from cjb where zjzh='" & rs1!zjzh &"' & "")  如果zjzh字段是数值型的就:
cn1.Execute ("delete from cjb where zjzh=" & rs1!zjzh &" & "")

Answer 2

如果zjzh是數值型就   cn1.Execute ("delete from cjb where zjzh=" & rs1!zjzh)

Answer 3

cn1.Execute ("delete from cjb where zjzh='" & rs1!zjzh &"' ") 

Answer 4

还是要报错，调试的时候，显示错误地方在cn1.Execute ("insert into zzb " & " values(" & rs1!zjzh & "," & rs2!jfsl & ")")
我的ZJZH 是CHAR ，JFSL 是MONEY.
救命啊

Answer 5

cn1.Execute ("insert into zzb " & " values('" & rs1!zjzh & "'," & rs2!jfsl & ")")

Answer 6

cn1.Execute ("insert into zzb(zjzh,jfs1) values('" & rs1!zjzh & "','" & rs2!jfsl & "')")
這樣你試試，看行不行？？？

Answer 7

where 字段名称=某字符串，要用‘’括起来，其他的字符串用&连接 例如：
cn1.Execute ("delete from cjb where zjzh='" & rs1!zjzh & "'")