| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1815 人关注过本帖
标题:求解大神。程序运行有误
只看楼主 加入收藏
wating
Rank: 2
等 级:论坛游民
帖 子:48
专家分:18
注 册:2016-2-23
结帖率:82.35%
收藏
已结贴  问题点数:20 回复次数:4 
求解大神。程序运行有误
Private Sub Command2_Click(Index As Integer)
'词组操作
Dim strVa As String
Dim k As Integer
Select Case Index
    Case 0   '探头
        If Text1(0).Text = "" Then Exit Sub
        Load F_Px    '排序
        '向词表添加新词
        Keytext1_0
    Case 1   '模块
        If Text1(1).Text = "" Then Exit Sub
        Load F_Px    '排序
        '向词表添加新词
        Keytext1_1
    Case 2      '探头词修改
        If Text1(0).Text = "" Then Exit Sub
        If List1(0).Text = "" Then
        Else
            v_Word_Rcd.MoveFirst
            v_Word_Rcd.FindFirst "ino=" & UCase(Left(List1(0).Text, 4))
            v_Word_Rcd.Edit
            v_Word_Rcd.Fields("cz").Value = Trim(Text1(0).Text)
            v_Word_Rcd.Update
            List1(0).List(List1(0).ListIndex) = UCase(Left(List1(0).Text, 4)) & " " & Text1(0).Text
            MSFGd1(0).TextMatrix(MSFGd1(0).Row, 1) = v_Word_Rcd.Fields("cz").Value
            '组合键跳格输入
            If ZHJA = True Then
                For k = 1 To MSFGd1(0).Rows - 1
                    If MSFGd1(0).TextMatrix(k, 1) = " " Then
                        MSFGd1(0).TextMatrix(k, 1) = v_Word_Rcd.Fields("cz").Value
                    End If
                Next k
            End If
            '数组清零
            ZHJA = False
            
        End If
    Case 3      '模块词修改
        If Text1(1).Text = "" Then Exit Sub
        If List1(1).Text = "" Then
        Else
            v_Word_Rcd.MoveFirst
            v_Word_Rcd.FindFirst "ino=" & UCase(Left(List1(1).Text, 4))
            v_Word_Rcd.Edit
            v_Word_Rcd.Fields("cz").Value = Trim(Text1(1).Text)
            v_Word_Rcd.Update
            List1(1).List(List1(1).ListIndex) = UCase(Left(List1(1).Text, 4)) & " " & Text1(1).Text
            MSFGd1(1).TextMatrix(MSFGd1(1).Row, 1) = v_Word_Rcd.Fields("cz").Value
            '组合键跳格输入
            If ZHJA = True Then
                For k = 1 To MSFGd1(1).Rows - 1
                    If MSFGd1(1).TextMatrix(k, 1) = " " Then
                        MSFGd1(1).TextMatrix(k, 1) = v_Word_Rcd.Fields("cz").Value
                    End If
                Next k
            End If
            ZHJA = False
            
        End If
End Select
End Sub

求那位大神看下这段程序有错没。
搜索更多相关主题的帖子: Text1 
2016-02-24 09:24
pel46585
Rank: 2
等 级:论坛游民
威 望:1
帖 子:11
专家分:10
注 册:2014-12-24
收藏
得分:10 
代码不全,看不出来错误,具体错误在哪里,你自己试一下啊。或者贴出全部代码来。
2016-02-24 10:36
wating
Rank: 2
等 级:论坛游民
帖 子:48
专家分:18
注 册:2016-2-23
收藏
得分:0 
回复 2楼 pel46585
哦 谢谢大神!刚学VB
2016-02-24 11:01
Artless
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:103
帖 子:4211
专家分:28888
注 册:2009-4-8
收藏
得分:10 
什么错误?

无知
2016-02-26 01:19
wating
Rank: 2
等 级:论坛游民
帖 子:48
专家分:18
注 册:2016-2-23
收藏
得分:0 
回复 4楼 Artless
运行时 点修改按钮  会改动别的词组,不单是改的这条 。
2016-02-26 10:29
快速回复:求解大神。程序运行有误
数据加载中...
 
   



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

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