主题：计算时程序自动关闭

提问，你得明确告诉大家，你目的是什么，你做了些什么，现在卡在那里，否则大家不知道你要做什么，怎么帮你？

你要汇总，大概就是：

Dim val As Double = DataTables("WBS").compute("Sum(v)","FatherCode Like '" & e.Node.Name & "\*' Or FatherCode = '" & e.node.name & "'")
Messagebox.show(val)