你这个代码有问题
Dim dr As DataRow = nd.DataRow '获取生成此节点的DataRow
不能直接用datarow的,参考,用fullpath获取
http://www.foxtable.com/webhelp/scr/2690.htm