主题：请问如何解决在动态编码加载树的check中的一个问题

本人设计了用编码实现动态加载树TreeView,并设置“显示复选框”为“True"，在初始加载时根据表中某一字段的值来设置所加节点复选框为“True”或“False",遮掩加载时能够实现加载功能，但当设置加载树的“AfterCheckNode”如下的编码（意为改变复选框状态后把结果回写到表中对应记录的字段中)，这样在加载过程中每改变一次复选框值时系统都自动调用了这个“AfterCheckNode”功能并报错.请狐爸指教，谢谢！

Dim tr As Winform.TreeView = e.Form.Controls("TreeView")
Dim r As Rowr = Tables("名称表").Current
If tr.SelectedNode.Checked()
   r("状态") = "运行"
Else
   r("状态") = "待建"
End If