主题：求助目录树代码

为什么不一勾选就标记作废或外借的状态呢（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

还有你的AfterLoad事件中的筛选条件 收费金额 is null 如果录入员不小心输了一个零（0），认为没关系而不清除这个零（0）时，你这个条件就有问题了！～

根节点不要复选框?  你只好等老六了。～