设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 2502|回复: 5
打印 上一主题 下一主题

[窗体] LEFT函数未定义

[复制链接]
跳转到指定楼层
1#
发表于 2010-3-12 15:25:53 | 只看该作者 回帖奖励 |正序浏览 |阅读模式
Private Sub TreeView0_NodeClick(ByVal Node As Object)
    Dim strCARGOTYPE_NO As String
    Dim strSQL As String
    Dim i As Integer
    Dim n As Integer
    Dim strTip As String
    Dim a As String
    strCARGOTYPE_NO = Right(Node.Key, Len(Node.Key) - 3)
    '判断是否是顶层
    If strCARGOTYPE_NO = "1" Then  '预先定义好的:NO.1,第3位向后的字符,所以是1
        strSQL = "SELECT * FROM ck_库存查询;"
        Me.lblTip.Caption = "库存"
    Else
        i = Len(strCARGOTYPE_NO)
        strSQL = "SELECT * FROM ck_库存查询 WHERE left([分类编号]," & i & ")='" & strCARGOTYPE_NO & "';"
        'Debug.Print I
        For n = 1 To i / perSectionLong
          strTip = strTip & Trim(CurrentDb.OpenRecordset("SELECT CARGOTYPE_NAME FROM 产品分类 where left([CARGOTYPE_NO]," _
                                                         & (n * perSectionLong) & ")='" & Left(strCARGOTYPE_NO, (n * perSectionLong)) & "' and CARGOTYPE_LEVEL=" & n & ";")(0).Value) & ">>"
        Next
        strTip = "库存" & ">>" & Left(strTip, Len(strTip) - 2)
        Me.lblTip.Caption = strTip
    End If
    'Debug.Print strSQL
    Me.subMX_CARGO.Form.RecordSource = strSQL
End Sub

每当点击页面上的东西就提示说LEFT函数未定义,请高手们帮帮忙。?谢!红色为电脑提示部分。
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
5#
 楼主| 发表于 2010-3-26 16:04:48 | 只看该作者
谢谢已解决
4#
发表于 2010-3-22 12:45:21 | 只看该作者
库放上来也许方便查看
3#
 楼主| 发表于 2010-3-22 08:30:09 | 只看该作者
请高手们帮帮忙
2#
 楼主| 发表于 2010-3-22 08:29:26 | 只看该作者
没人呀?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-12 08:16 , Processed in 0.085882 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表