Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]提示startindex 不能大于字符串长度


  共有2030人关注过本帖树形打印复制链接

主题：[求助]提示startindex 不能大于字符串长度
帅哥哟，离线，有人找我吗？
YDS
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：612 积分：3462 威望：0 精华：0 注册：2011/5/21 18:05:00 		[求助]提示startindex 不能大于字符串长度  发帖心情 Post By：2018/1/23 15:47:00 [只看该作者]

If vars("g") = 1 Then
    If vars("js") >= 3 And vars("js") <= 7 Then
        Dim cnt As Integer = Ports(vars("com1")).BytesToRead
        If cnt > 7 Then '缓冲区是否有数据
            Dim V(cnt - 1) As Byte
            Ports(vars("com1")).Read(V,0,cnt)
            Dim str As String = V(0)
            For x As Integer = 1 To cnt - 1
                str = str & "-" & V(x)
            Next
            If str.Contains("0-0-0") Then
                str = str.Replace("0-0-0","0")
            Else
                If str.Contains("-0-") Then
                    str = str.Replace("-0-","-")
                End If
            End If
            Dim Values() As String
            Dim s1,s2 As String
            Values = str.split("-")
            If Values.Length = 8 Then
                s1 = DecToBin(Values(3)) & DecToBin(Values(2))
                s2 = DecToBin(Values(5)) & DecToBin(Values(4))
                s1 = BinToDec(s1)
                s2 = BinToDec(s2)
                e.form.Controls("TextBox" & vars("js") & "1").text = s1
                e.form.Controls("TextBox" & vars("js") & "2").text = s2
            End If
        End If
    End If
    Dim i,i1 As Integer
    If vars("js") = 7 Or vars("js") < 3 Then
        i = 3
    Else
        i = vars("js") + 1
    End If
    i1 = i + 112
    Dim Val() As Byte = New Byte()  {1,112,i,i1,2}
    vars("js") = i
    Ports(vars("com1")).Write(Val, 0, Val.Length)
End If

这段代码在主窗口 TimerTick  请问哪里出问题了
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/23 15:56:00 [只看该作者]

这段代码不应该有问题，加入msgbox定位出错位置。可能触发了其它事件导致的。
 回到顶部
帅哥哟，离线，有人找我吗？
YDS
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：612 积分：3462 威望：0 精华：0 注册：2011/5/21 18:05:00 		  发帖心情 Post By：2018/1/24 13:10:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:ac200.foxdb


请帮忙看一下，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/1/24 15:14:00 [只看该作者]

你上传的实例，别人无法直接测试的啊。请自行加入msgbox，定位哪句代码出错

 

http://www.foxtable.com/webhelp/scr/1485.htm

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 5 次数据查询