怎样清空Type类型数据？ （很多层）

Question

我不是已经回答了么？
用ZeroMemory API函数试试看。如果不行，就只能一层一层的手动清除了。

Answer 1

我同意一楼，但是如果你实在不想象一楼兄弟所说的去做。我给你一个方法。
Private Type POINTAPI
        x As Long
        y As Long
End Type
Private Type Re
    leftp As POINTAPI
    right As POINTAPI
    c As Integer
End TypePrivate Sub Command1_Click()
    Dim a As Re, b As Re
    a.leftp.x = 10
    a.leftp.y = 80
    a.right.x = 33
    a.right.y = 34
    a.c = 44
    clear b, a
    Debug.Print a.leftp.x
    Debug.Print b.leftp.y
End Sub
Private Sub clear(pt1 As Re, pt2 As Re)
        pt2 = pt1
End Sub
在你使用过程中，你只需要，多定义一个变量b，记住这个变量要跟你想清空的变量是同一类型，而且不用给b初始话的，然后调用clear b，a就可以了