| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1105 人关注过本帖
标题:【求助】一段VB代码编译错误。。。
只看楼主 加入收藏
一生爱琼
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2009-7-27
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:3 
【求助】一段VB代码编译错误。。。
请高手看下这段代码有什么问题?我一编译就出现“Else没有If”等警告,,反正我就是生成不了工程,我该什么办?请高手帮忙修改下。。谢谢了!

Dim czylxbj As String '操作员类型比较变量

Private Sub Combo1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then Command1.SetFocus
  KeyAscii = 0
End Sub

Private Sub Command1_Click()

     If Combo1.Text = "" Then
        MsgBox "请选择操作员类型"
        Combo1.SetFocus
     Else
        If Trim(Combo1.Text) = czylxbj Then
           czyxm = Text2.Text
           czylx = Combo1.Text
           Unload Me
           main.Show
        Else
           MsgBox "对不起!您不是" + Trim(Combo1.Text) + ",请正确选择您的职务。"
           Combo1.Text = ""
           Combo1.SetFocus
        End If
     End If
  Else
    If Trim(Combo1.Text) = "" Then
           Combo1.Text = ""
           main.Show
     MsgBox "操作员姓名或操作员密码不正确,请重新登录"
     Text1.Text = ""
     Text2.Text = ""
     Text3.Text = ""
     Combo1.Text = ""
     Text1.SetFocus
  End If
End Sub

Private Sub Command2_Click()
  Text1.Text = ""
  Text2.Text = ""
  Text3.Text = ""
  Combo1.Text = ""
  Text1.SetFocus
  
End Sub

Private Sub Command3_Click()
  End
End Sub


On Error GoTo er
'If Dir("c:\windows\ywxxgl\yyglzc.ini") = "" Then
'   RmDir "c:\windows\ywxxgl"
'   MkDir "c:\windows\ywxxgl"
'   zcm = InputBox("请输入系统注册号码?")
'   If zcm <> " " Then
'      MsgBox "系统注册号码不合法!禁止使用本系统!"
'      End
'   End If
'   Open "c:\windows\ywxxgl\yyglzc.ini" For Output As #1
'   Print #1, zcm
'   Close #1
'   MsgBox "系统注册成功!请重新启动系统"
'   End
'End If
'If Dir("c:\windows\ywxxgl\yyglzc.ini") <> "" Then
'   Open "c:\windows\ywxxgl\yyglzc.ini" For Input As #2
'   Input #2, zcm1
'   Close #2
'   If zcm1 <> " " Then
'      MsgBox "系统注册信息出现严重错误,导致系统不能正常使用!"
'      End
'   End If
'End If
If Dir(App.Path + "dl.zkf") = "" Then
   k = MsgBox("系统数据库名或服务器路径未指定,现在指定吗?", vbYesNo)
   If k = 6 Then
      cd1.FileName = ""
      cd1.ShowOpen
      If Right(cd1.FileName, 11) = "docter.yygl" Then
         Open App.Path + "dl.zkf" For Output As #1
         Print #1, cd1.FileName
         Close #1
         dbstr = cd1.FileName
      Else
         MsgBox "选择服务器路径或文件名错误!请重新登录!"
         End
      End If
   Else
      End
   End If
Else
   Open App.Path + "dl.zkf" For Input As #2
   Input #2, dbstr
   Close #2
End If
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1.Text = ""
Text1.SetFocus
Data1.DatabaseName = dbstr
Data1.RecordSource = "czy"
Data1.Refresh
Exit Sub
er:
  Select Case Err.Number
         Case 76
            MkDir "c:\windows\ywxxgl"
            MsgBox "系统路径初始化设置成功!请重新启动系统进行系统注册!"
         Case -2147467259
            MsgBox "服务器未启动或连接不成功,请检查服务器连接情况。!然后重新启动系统!"
         Case Else
            MsgBox "系统出现未知错误!被迫停止运行!"
  End Select
  End
End Sub

Private Sub Text1_Change()
  If Len(Text1.Text) >= 2 Then
     Data1.Refresh
     Data1.Recordset.FindFirst "操作员代码=" + "'" + Text1.Text + "'"
     If Data1.Recordset.NoMatch = True Then
        MsgBox "操作员代码不存在,请重新输入"
        Text1.Text = ""
        Text1.SetFocus
        Exit Sub
     Else
        Text2.Text = Data1.Recordset.Fields(1)
        czystr = Text2.Text
        czylxbj = Data1.Recordset.Fields(3)
        Text3.SetFocus
     End If
  End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
     Combo1.SetFocus
  End If
End Sub
搜索更多相关主题的帖子: 编译 代码 
2009-07-27 12:40
一生爱琼
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2009-7-27
收藏
得分:0 
兄弟们,,帮帮忙啊。。谢谢了
2009-07-27 13:51
loveve
Rank: 4
等 级:业余侠客
威 望:1
帖 子:452
专家分:213
注 册:2005-4-11
收藏
得分:20 
选择词句的形式,我看到了,你自己查一下
if    then

else

end if

第二种

if   then

else if

else if


……

end if


当有多于2个选择的时候,选第二种情况

五月的雪
2009-07-27 15:14
一生爱琼
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2009-7-27
收藏
得分:0 
非常感谢
2009-07-27 15:21
快速回复:【求助】一段VB代码编译错误。。。
数据加载中...
 
   



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

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