Question

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

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”
请问错误在哪儿？
谁能帮我修改一下?谢谢

Answer 1

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

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

Answer 2

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

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