请教一个关于left/right函数格式的问题，谢谢！！

howze

先看图说话

小弟想根据积压时间，将表里的说自动划分，然后自动算出奖金
这步现在我已经实现了，但是问题在于：
不同的代码，奖金的比率不同，比如1开头的代码，奖金比率分别是0.1、0.2、0.3
2开头代码的比率是0.2、0.3、0.4
因此我的代码如下：
Private Sub cmdCalculate_Click()
    Dim strSQL As String
   
    If Not IsNull(Me.cboTableName) Then
   
If Left(代码, 1) = 1 Then
    strSQL = "UPDATE " & Me.cboTableName & " INNER JOIN 计算标准1 ON [@Table].积压时间 = 计算标准1.积压时间 SET [@Table].划分 = [划分标准],[@Table].奖金 =[@Table].单价*[比率];"
    strSQL = Replace(strSQL, "@Table", Me.cboTableName)
   
ElseIf Left(代码, 1) = 2 Then
    strSQL = "UPDATE " & Me.cboTableName & " INNER JOIN 计算标准2 ON [@Table].积压时间 = 计算标准2.积压时间 SET [@Table].划分 = [划分标准],[@Table].奖金 =[@Table].单价*[比率];"
    strSQL = Replace(strSQL, "@Table", Me.cboTableName)
    End If
   
Debug.Print strSQL
    CurrentProject.Connection.Execute strSQL
    Me.fsubQuery.Requery
    MsgBox "成功"
End If
End Sub
可是这样以来就总是提示出错，麻烦各位大哥给看看吧，是不是我的left函数的格式不对？
谢谢了！！！

howze

很感谢楼上的帮忙
这是换了一种方法来实现了
但是能不能用if +left的方法来实现呢？
谢谢

howze

楼上大哥，我更新了一下，麻烦能不能再看看？
谢谢

howze

用if应该就麻烦了
只能用ADO取数据来循环了
Ombre 发表于 2009-7-15 22:47

那代码应该如何写呢？
麻烦指点一下
万分感谢！！！

howze

请教一下
为什么rs() 括号里要是0呢？
还有connectionstring,1,1
这里的1，1是什么意思？
麻烦指点一下
谢谢

howze

万分感谢，我先试试
谢谢了！！！

howze

还是不成功
算的结果不对
而且那个msgbox会一直弹
关都关不掉
郁闷啊

howze

还是没解决
再顶一下

howze

我看你的附件不是已经解决了吗?
Ombre 发表于 2009-7-16 17:26

附件没有解决啊
不相信你试一下
我把一些代码加成注释了
你去掉'试试
肯定不行