Question

我可以让编译器给出一个错误（在赋值之前使用变量）：

private sub Test()
   Dim ord As Order
   Dim ord2 As Order
   ord2 = ord
end sub

但不是：

Friend Class frmReceiving
...

Private mobjOrder As Order 

...

private sub Testing()
   Dim ord2 As Order
   ord2 = mobjOrder 
end sub

如何将其标记为错误？

感谢。

Answer 1

是

使用/ warnaserror编译器选项。

Answer 2

你的第二个例子不是错误。 mobjOrder将初始化为Nothing。然后，您将Nothing分配给ord2。这是完全合法的事情。