checi = rs3("车次").Value                                              '找到对应时间的车次



Dim rs4 As New ADODB.Recordset
Set rs4.ActiveConnection = cnn
rs4.CursorType = adOpenStatic
rs4.Open "select * from 停站时间  where '车次 = " & checi & "'"
tingzhan = rs4("廊坊站").Value                                       '判定是否在站停车


If tingzhan = 0 Then
     If Val(Left("&checi&" - 1)) / 2 <> 0 Then
         If Combo1.Text = checi Then
            Form1.Line (2950, 3600)-(14650, 3600), vbRed
         End If
        
     Else
          If Combo1.Text = checi Then
           Form1.Line (2950, 3800)-(14650, 3800), vbRed
          End If
         
     End If
     
Else
   
   
   '找路径
End If


这里数据库里的车次字段设的是文本类型，我想将这个字段里的文本去掉第一个字后面的数字转换成数字的形式进行加减乘除，但是报的这个错我该怎么改呢？求大神帮助

Val(Left("&checi&" - 1))

val(mid(checi,2))

一、 checi 是变量名，必须不能放到引号之中
二、left 是取左边几个字符
    right 是取右边几个字符
    mid  是取中间几个字符，可以从第几个字符起，取后面剩余的所有字符，这时应该省略第三个参数

好久没用过这些字符串函数，几乎忘完。学习了。