树形窗体显示不正确，问题出在哪

如下,把红色的行注释就正常了,你测试一下:

Private Sub TreeView2_NodeClick(ByVal node As Object)

    Dim Arr
    Debug.Print node.Key
    Me.nodepath.Value = node.Key
    Me.总账科目ID.Value = Null
    Me.编号.Value = Null
    Me.明细科目.Value = Null
    Me.总账科目ID.Value = Null
    Me.余额方向.Value = Null
    
    Arr = Split(Me.nodepath.Value, ";")
    Select Case UBound(Arr)
        Case 2
            Me.总账科目ID.Value = Arr(2)
        Case 3
            Me.总账科目ID.Value = Arr(2)
            'Me.总账科目ID.Value = Arr(3)
            Me.明细科目.Value = node.Text
            Me.编号.Value = DLookup("编号", "明细科目", "科目ID=" & Arr(3))
            Me.余额方向.Value = DLookup("余额方向", "明细科目", "科目ID=" & Arr(3))
            
        Case Else
            Exit Sub
    End Select
    Me.分类账.Form.总账科目 = Me.总账科目ID.Column(2)
    Me.分类账.Form.明细科目 = Me.明细科目
    Me.分类账.Form.分类账_子窗体.Requery
End Sub














Private Sub 删除_Click()
    Dim ssql As String
    ssql = "delete * from 明细科目 where 科目ID=" & Me.科目ID.Value
    CurrentDb.Execute ssql
    Call Form_Load
End Sub