主题：求助目录树代码

为什么不一勾选就标记作废或外借的状态呢（true or false）？  还要来个大循环？？？
AfterCheckNode事件中：
Dim tr As WinForm.TreeView
tr = Forms("作废外借piao据管理").Controls("TreeView2")
If e.Node.Checked and e.Node.Level > 0 Then
    Dim dr As DataRow
    dr = DataTables("分领明细").Find("piao据号码 = '" & tr.SelectedNode.text & "'")
    dr("外借") = true
else
    Dim dr As DataRow
    dr = DataTables("分领明细").Find("piao据号码 = '" & tr.SelectedNode.text & "'")
    dr("外借") = false    
End If