- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]请教一个计算，已经折腾了我两天了 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77640)
-- 发布时间：2015/11/23 8:51:00
-- [求助]请教一个计算，已经折腾了我两天了
问题在代码里。没报错，但就是没反应
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:目录树统计各节点数据.foxdb |
-- 发布时间：2015/11/23 9:01:00
--
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
-- 发布时间：2015/11/23 9:06:00
--
还是不对。我觉得是我的代码的逻辑上还有问题
-- 发布时间：2015/11/23 9:12:00
--
如附件文件主窗口左边的目录树。一级一级的从最底层的重量算上去。如果子目录里的子元素还没有全部都有自己的单重的话，先跳过不算上级元素的单重。等子元素都有了单重以后再算。
-- 发布时间：2015/11/23 9:23:00
--
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)
-- 发布时间：2015/11/23 9:40:00
--
这回接近了。谢谢。我再研究一下。可能是我的目录树的绝对路径还有问题。