如何在VB6中重新初始化UDT？

我有一个循环，它读取一堆XML文件，对于每个文件，它验证XML中的数据，并将其加载到一些UDT中，然后对数据进行一些处理

然后返回到循环的开头，UDT仍然包含来自上一个XML的数据。如果在新标记中定义了该标记，则会覆盖该标记，但如果未定义该标记，则UDT中的该元素将被保留

但是，除非我遍历UDT的每一个元素并重置值，否则我无法使用变量的技术重置UDT（

Let X=0

）。而Doy it对象样式（

将X设置为新UDT

）不起作用

---

如何操作？

将新变量设置为UDT，并将旧变量设置为新变量

例如：

Dim XEmpty as UDT
X = XEmpty

---

将重新初始化UDT类型的UDT变量X。

您可以使用一个空的实用函数，只返回UDT

public function newTFoo() as TFoo
'//
end function


dim t as TFoo
t.x = 1234 ...
t = newTFoo()
'// t is reset