目录树 AfterSelectNoe事件
Tables("部门信息").Position = Tables("部门信息").FindRow(e.Node.DataRow)
改成
If e.Node.DataRow IsNot Nothing Then
End If