求解大神。程序运行有误
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
求那位大神看下这段程序有错没。
