Dim dr As DataRow = DataTables("月报项目结构").find("_Identify = " & e.node.tag)
改成
Dim dr As DataRow = e.node.DataRow