If e.Node.Level = 0 Then '如果是顶层节点 Return '则返回 End If Dim Vals() As String = e.Node.FullPath.Split("\") Dim Filter As String = "[大类] = '" & Vals(0) & "' And [中类] = '" & Vals(1) & "' And [小类] = '" & Vals(1) & "'" Dim dr As DataRow = DataTables("成本项目").Find(Filter) if dr isnot nothing then Dim r As Row = Tables("成本测算").Current r("成本项目") = dr("成本项目") end if e.Form.Close()
加好友 
发短信
Post By：2009/7/6 11:15:00 [显示全部帖子]
