vb6 - 从函数返回空 UDT

Question

我编写了一个返回用户定义类型的函数。

如果函数出现任何错误，我如何返回一个空的 UDT？

我尝试将函数设置为“无”，但它抛出“需要对象”错误。

提前致谢。

Answer 1

如果可能，请改用类/对象。甚至可以做一些简单的事情，比如转变这种类型:

Public Type EmpRecord
   FName As String
   LName As String
   HiredDate As Date
End Type

可以通过在您的项目中添加一个名为 EmpRecord 的类并将其包含在其中来完成:

Public FName As String
Public LName As String
Public HiredDate As Date

然后你可以从一个在检索记录时出错的函数中返回 Nothing。