求助!在语句结尾找到字符是怎么回事?

susu333

想实现的效果:如果营业性质中包含"非营业"，手续费率等于0.2，包含家庭，手续费率等于0.1，其它手续费率等于0.3，运行之后出现“在语句结尾找到字符”，我哪里错了？

SELECT [0814].签单保费, [0814].核保日期, [0814].使用性质, [0814].手续费
FROM 0814;
Private Sub test();
Dim strSQL As String;      
strSQL="UPDATE [0814] SET [手续费] ='" &  myFunction([字段1]) & "'";      
DoCmd.Runsql strSQL;
End Sub;
Private Function myFunction(x As string);     
Select Case x;            
Case like '%家庭%';                  
myFunction = 0.1;            
Case like '%非营业%';                  
myFunction = 0.2;            
Case else;                  
myFunction = 0.3;      
End Select;
End Function;

andymark

符号;是自动生成的,还是自已输入的?

最好把例子传上来

fan0217

你的是那里来的代码啊，怎么这样呢，都以分号结束。

susu333

谢谢，是我自己输入的。不太熟悉sql。[em04]

[此贴子已经被作者于2006-9-20 12:47:49编辑过]

susu333

举例：


想自动更新手续费率和手续费合计。


如果产品大类为数码相机，手续费率为10%，其中奥林巴斯加3%


如果产品大类为摄像机，手续费率为11%


其它产品大类手续费率为12%


如果销售日期等于收款日期，则所有的手续费率在原有基础上加2%。

[此贴子已经被作者于2006-9-20 12:43:51编辑过]