主题：[求助]请教一个计算，已经折腾了我两天了

问题在代码里。没报错，但就是没反应

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:目录树统计各节点数据.foxdb

If drs1.Count > 0 Then '1
    For i1 = 0 To drs1.Count - 1 '2对单重还没有的行的集合进行遍历计算
        ys = drs1(i1)("元素")
        dr1 = dt.Find("隶属 = '" & ys & "' and 单重 is null") '寻找这个集合里需要计算单重的这个元素其中一个子元素,这个子元素是还没有单重的
        If dr1 Is Nothing Then '3 如果这个子元素不存在,意思就是所要计算的元素的下属所有子元素都已经有了现成的单重
            drs2 = dt.Select("隶属 = '" & ys & "' and 单重 is not null")  '那么获取需要计算的元素的所有子元素的集合
            If drs2.Count > 0 Then '4
                For i2 = 0 To drs2.Count - 1 '5
                    danz = danz + drs2(i2)("隶属数量") * drs2(i2)("单重")  '对这个元素的所有子元素的单重和数量进行汇总
                Next '5
            End If '4
        End If '3
        drs1(i1)("单重重计") = danz ' 赋值
    Next '2
End If '1

还是不对。我觉得是我的代码的逻辑上还有问题

如附件文件主窗口左边的目录树。一级一级的从最底层的重量算上去。如果子目录里的子元素还没有全部都有自己的单重的话，先跳过不算上级元素的单重。等子元素都有了单重以后再算。

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
tr.CreateTree("表A","绝对路径")
For Each nd As WinForm.TreeNode In tr.AllNodes
    Dim lj As String = nd.DataRow("绝对路径")
    Dim drs As List(Of DataRow) = DataTables("表A").Select("绝对路径 like '" & lj & "\%'")
    If drs.count = 0 Then
        nd.DataRow("单重重计") = nd.DataRow("隶属数量") * nd.DataRow("单重")
    Else
        Dim sum As Double = 0
        For Each dr As DataRow In drs
            sum += dr("隶属数量") * dr("单重")
        Next
        nd.DataRow("单重重计") = sum
    End If
    nd.Text = nd.name & "(" & nd.DataRow("单重重计") & ")"
Next
tr.ExpandAll
Dim sss As  WinForm.TreeNode = tr.Nodes(0) .Nodes(0).nodes(0).nodes(0)
MessageBox.Show(sss.Name)

这回接近了。谢谢。我再研究一下。可能是我的目录树的绝对路径还有问题。