Foxtable(狐表)用户栏目专家坐堂 → 窗口


  共有18259人关注过本帖树形打印复制链接

主题:窗口

帅哥哟,离线,有人找我吗?
lihe60
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6887 积分:43621 威望:0 精华:0 注册:2009/3/2 14:07:00
窗口  发帖心情 Post By:2009/7/6 11:11:00 [只看该作者]

成本测算表中的窗口目录树可以录入土地下面其他项目,唯独不能录入"土地—出让金—土地1",各位发表高见。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:房产公司.table


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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()

 回到顶部