-
本版专家分：0结帖率 100% -
我的代码如下：
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中一些数据！！！！！！！！！
-
本版专家分：50592
-
-
红花
2005年1月 VB大版内专家分月排行榜第一
2004年12月 VB大版内专家分月排行榜第一
2004年11月 VB大版内专家分月排行榜第一
2004年10月 VB大版内专家分月排行榜第一
-
-
黄花
2005年3月 VB大版内专家分月排行榜第二
2005年2月 VB大版内专家分月排行榜第二
-
-
如果zjzh字段是字符型的就:
cn1.Execute ("delete from cjb where zjzh='" & rs1!zjzh &"' & "")
如果zjzh字段是数值型的就:
cn1.Execute ("delete from cjb where zjzh=" & rs1!zjzh &" & "")
-
本版专家分：42
-
如果zjzh是數值型就
cn1.Execute ("delete from cjb where zjzh=" & rs1!zjzh)
-
本版专家分：1833 -
cn1.Execute ("delete from cjb where zjzh='" & rs1!zjzh &"' ")
-
本版专家分：0
-
还是要报错，调试的时候，显示错误地方在cn1.Execute ("insert into zzb " & " values(" & rs1!zjzh & "," & rs2!jfsl & ")")
我的ZJZH 是CHAR ，JFSL 是MONEY.
救命啊
-
本版专家分：93
-
cn1.Execute ("insert into zzb " & " values('" & rs1!zjzh & "'," & rs2!jfsl & ")")
-
本版专家分：132 -
cn1.Execute ("insert into zzb(zjzh,jfs1) values('" & rs1!zjzh & "','" & rs2!jfsl & "')")
這樣你試試，看行不行？？？
-
本版专家分：318
-
where 字段名称=某字符串，要用‘’括起来，其他的字符串用&连接 例如：
cn1.Execute ("delete from cjb where zjzh='" & rs1!zjzh & "'")