主题：[求助]在目录树中代码发生错误

此主题相关图片如下：qq截图20160217115731.png

Case "违章登记"
        Forms("编辑案件").Open()
        MainTable = Tables("ybchengxu")
        With CurrentTable
            Dim r As Integer
            r = .FindRow("[ajdjh] Like '%" & Forms("目录窗口").Controls("Label2").Text.Replace("[", "@").Replace("]", "#").Replace("@", "[[]").Replace("#", "[]]") & "%'") '从 第一行开始查找
            If r >= 0 Then '如果找到的话
                .Position = r '定位到找到的行.
            End If
        End With
        If forms("编辑案件").opened Then
            forms("编辑案件").controls("Label14").text=e.DataTable.current("ajdjh")
            forms("编辑案件").controls("DateTimePicker1").text=e.DataTable.current("jbxx_jcsj")
            forms("编辑案件").controls("DateTimePicker2").text=e.DataTable.current("wzdj_sasj")
            forms("编辑案件").controls("ComboBox1").text=e.DataTable.current("jbxx_jcdd")
            forms("编辑案件").controls("ComboBox2").text=e.DataTable.current("wzdj_ay")
        End If

图中的代码在目录树中发生了错误

请大侠帮忙看一下下，错在哪里了？谢谢

Tables("ybchengxu").current("ajdjh")

Tables("ybchengxu").current("jbxx_jcsj")