UC知道vb下标越界问题????
来源：百度知道 编辑：UC知道 时间：2024/05/14 03:43:54
帮我看看这段程序哪里 错了
If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) = "" Then
sssss = MsgBox("你还没有选择记录！", vbOKOnly + vbExclamation, "警告")
end if
qq多少 我把截图给你
也不是一直出错的 我如果没选中TreeView1 直接点Toolbar1
会出来个实时错误381 下标越界
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Tag
Case "find"
Formclass3.Show
Case "modi"
If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) = "" Then
sssss = MsgBox("你还没有选择记录！", vbOKOnly + vbExclamation, "警告")
Exit Sub
Else
qxstr = Executeqx(2)
If qxstr = "readonly" Then
ss = MsgBox("对不起，你是只读用户不能修改记录，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) = "" Then
sssss = MsgBox("你还没有选择记录！", vbOKOnly + vbExclamation, "警告")
end if
qq多少 我把截图给你
也不是一直出错的 我如果没选中TreeView1 直接点Toolbar1
会出来个实时错误381 下标越界
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Tag
Case "find"
Formclass3.Show
Case "modi"
If Trim(Me.MSF1.TextMatrix(MSF1.Row, 1)) = "" Then
sssss = MsgBox("你还没有选择记录！", vbOKOnly + vbExclamation, "警告")
Exit Sub
Else
qxstr = Executeqx(2)
If qxstr = "readonly" Then
ss = MsgBox("对不起，你是只读用户不能修改记录，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
Exit Sub
End If
出错返回是这句代码吗?
那你看看你的表格有第2列吗? 代码应该是无问题的..
你定义后的表格行或列数超出了数据表里的行或列数.
在检查一次...
数据表里的第一列为0列第二列为1列.依次类推...
例如数据表里共有十列...代码就要定义成.for i=0 to 9 如果定义到10列的放就会多一列..下标越界.
下标越界就是你定义的Row的变量在某个时刻超过了你定义的数组的下标上限。
检查,男人怎么都这样呢