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



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

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