| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1746 人关注过本帖
标题:vb求助字符串转换
只看楼主 加入收藏
水嫩么
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2016-3-20
结帖率:0
收藏
 问题点数:0 回复次数:2 
vb求助字符串转换
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


这里数据库里的车次字段设的是文本类型,我想将这个字段里的文本去掉第一个字后面的数字转换成数字的形式进行加减乘除,但是报的这个错我该怎么改呢?求大神帮助
2016-03-21 22:23
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
Val(Left("&checi&" - 1))

val(mid(checi,2))

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



授人于鱼,不如授人于渔
早已停用QQ了
2016-03-21 22:39
yangfrancis
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:贵宾
威 望:141
帖 子:1510
专家分:7661
注 册:2014-5-19
收藏
得分:0 
回复 2楼 风吹过b
好久没用过这些字符串函数,几乎忘完。学习了。
2016-03-22 11:31
快速回复:vb求助字符串转换
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024339 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved