以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=3461)
--  作者：lihe60
--  发布时间：2009/7/6 11:11:00
--  窗口
成本测算表中的窗口目录树可以录入土地下面其他项目,唯独不能录入"土地—出让金—土地1"，各位发表高见。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:房产公司.table
--  作者：狐狸爸爸
--  发布时间：2009/7/6 11:15:00
--  
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()