Question

我有一张表格叫做Form1, 在Form1,我有以下代码

Dim details As clsDetails

Set details = getDetials(1)   This fails. It doesn t assign a value.

Get Details 函数在一个单独的模块中声明如下:

Public Function getDetials(detailNumber As Integer) As clsDetails

    Dim details As clsDetails

    Select Case detailNumber
        Case "1"
            Debug.Print "Inside case1"

            Set details = getDetail1()

            Debug.Print details.comment   This prints correctly.

    End Select

    Set getDetails = details

End Function

然而,当我执行上述代码时,不知何故,Form1中的细节变量没有被设置,即使调用“获取细节”功能并正确打印其中的细节。如何纠正这一点?

Answer 1

您是否定义了 option Explication 关键字?

看起来你可能有打字机。您的函数被称为 getDetials ,但您重新设定结果的变量是 getDetails ,所以返回值没有被设定。

我固定了打字机, 一切工作都按我最后的预期。使用 < code> option Explicate 关键字将捕捉到这些错误。

Answer 2

我认为这可能是一个没有"的例子,http://msdn.microsoft.com/en-us/library/a266183%28v=vs.60%29.aspx" rel=“nofollow” > Option Explicate on

检查您在表格的顶部(而且实际上无处不在)有“选项 ” 。

您的类型错误, 声明函数 getDetals 但随后将一个名为 getDetails 的天体设置为新创建的类, 实际上正在创建一个新对象, 而函数返回根本没有被设定。

插入选项明确, 您就会看到它不会编译!

当您添加了选项时, 任何地方的选项都明确到 Tools Options Editor tab 上, 并勾划显示 要求变量声明 - 的框 - 这将确保每次您在您的工程中添加新代码文件时都添加此选项。

友情链接