VB编程出现“发现二义性的名称”的错误

来源:百度知道 编辑:UC知道 时间:2024/05/22 17:21:11
Public Enum Days
sunday
monday
tuesday
wednesday
thursday
friday
saturday
End Enum

Public Enum workdays
sunday
monday
tuesday
wednesday
thursday
friday
saturday
invalid = -1
End Enum

Private Sub command1_click()
Dim myday As workdays
myday = saturday
If myday < monday Then
MsgBox "it's the weekend . invaild work day!"
End If
End Sub

我在运行的时候 错误提示是“发现二义性的名称:saturday”
请问错误在哪儿?
谁能帮我修改一下?谢谢

Private Sub command1_click()
Dim myday As workdays
myday = workdays.saturday
If myday < workdays.monday Then
MsgBox "it's the weekend . invaild work day!"
End If
End Sub

我觉得应该是这样
你生成了一个新的实例,但赋值和比较时缺少对枚举名的引用.

发现二义性的名称:saturday
这就是你的代码中有申明了两次saturday,你搜索一下,删除其中一处就可以了。

这个申请过程可在你的整个过程与模块中。找一找。