[已解决]帮忙看一下：在if then 之间 出现“缺少表达式”错误

cmjcmj8888

Public YGBH As String       '定义用于记录“员工编号”的变量
Public YGXM As String       '定义用于记录“员工姓名”的变量
Public YGXB As String       '定义用于记录“员工性别”的变量
Public CSNY As String       '定义用于记录“出生年月”的变量
Public YGXL As String       '定义用于记录“员工学历”的变量
Public GZSJ As String       '定义用于记录“工作时间”的变量
Public YGZW As String       '定义用于记录“员工职务”的变量
Sub canel()                 '用于对全局变量进行初始化
    YGBH = " "
    YGXM = " "
    YGXB = " "
    CSNY = " "
    YGXL = " "
    GZSJ = " "
    YGZW = " "
End Sub
Sub note()                  '用于完成录入功能
    Dim tempmsgbox As VbMsgBoxResult
    Dim count As Integer
    if UserForm1.TextBox1.Text=" "     or
       UserForm1.textbox2.text=" "     or
       userform1.textbox3.text=" "     or
       UserForm1.TextBox4.Text = " "   or
       ygxb=" "  or
       ygxl=" "  or
       YGZW = " "     then     tempmsgbox=msgbox("请输入完整的信息！"，vbokonly & vbinformation,"系统提示")
       End
    End If
   
   
   
   
End Sub

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-11-3 14:48

     If UserForm1.TextBox1.Text = " " Or _
       UserForm1.textbox2.Text = " " Or _
       UserForm1.textbox3.Text = " " Or _
       UserForm1.TextBox4.Text = " " Or _
       ygxb = " " Or _
       ygxl = " " Or _
       YGZW = " " Then tempmsgbox = MsgBox("请输入完整的信息！", vbOKOnly & vbInformation, "系统提示")
       End
    End If

跳转到最佳答案楼层

我心飞翔410

     If UserForm1.TextBox1.Text = " " Or _
       UserForm1.textbox2.Text = " " Or _
       UserForm1.textbox3.Text = " " Or _
       UserForm1.TextBox4.Text = " " Or _
       ygxb = " " Or _
       ygxl = " " Or _
       YGZW = " " Then tempmsgbox = MsgBox("请输入完整的信息！", vbOKOnly & vbInformation, "系统提示")
       End
    End If

liyh67

    If UserForm1.TextBox1.Text = " " Or _
       UserForm1.textbox2.Text = " " Or _
       UserForm1.textbox3.Text = " " Or _
       UserForm1.TextBox4.Text = " " Or _
       ygxb = " " Or _
       ygxl = " " Or _
       YGZW = " " Then
        tempmsgbox = MsgBox("请输入完整的信息！", vbOKOnly & vbInformation, "系统提示")
        End
    End If