共2 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：窗口
1楼
lihe60 发表于：2009/7/6 11:11:00成本测算表中的窗口目录树可以录入土地下面其他项目,唯独不能录入"土地—出让金—土地1"，各位发表高见。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:房产公司.table |
2楼
狐狸爸爸 发表于：2009/7/6 11:15:00If 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()
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()
共2 条记录, 每页显示 10 条, 页签:
[1]