以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求教:根据路径列和标题列生成目录树,再根据路径计算使用数量  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=44564)
--  作者：飞天
--  发布时间：2014/1/3 19:14:00
--  求教:根据路径列和标题列生成目录树,再根据路径计算使用数量
求教:根据路径列和标题列生成目录树,再根据路径计算使用数量

图片点击可在新窗口打开查看此主题相关图片如下：213.png
图片点击可在新窗口打开查看

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目5.table


[此贴子已经被作者于2014-1-3 19:15:12编辑过]
--  作者：有点甜
--  发布时间：2014/1/3 19:34:00
--  
 是说，根据父子关系计算得出使用数量，赋值回表里么？
--  作者：飞天
--  发布时间：2014/1/3 19:37:00
--  
是的,
--  作者：有点甜
--  发布时间：2014/1/3 19:45:00
--  
 用这段代码得出

For Each dr As DataRow In DataTables("表A").DataRows
    Dim idx As String = dr("级码").LastIndexOf(".")
    If idx > -1 Then
        Dim fdr As DataRow = DataTables("表A").Find("级码 = \'" & left(dr("级码"), idx) & "\'")
        If fdr IsNot Nothing Then
            dr("使用数量") = fdr("单位数量") * dr("单位数量")
        End If
    Else
        dr("使用数量") = dr("单位数量")
    End If
Next