- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 节点分配异常 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117059)
-- 发布时间：2018/4/4 22:54:00
--
Dim RowBase As C1FlexGrid.Row = args(0).Row
Dim Node As C1FlexGrid.Node
node=RowBase.Node
For Each dr As DataRow In DataTables("项目节点明细").Select("节点代号 like \'" & node.Row("节点代号") & ".%\'")
If dr("节点代号")<>node.Row("节点代号") AndAlso dr("节点代号").split(".").length=node.Row("节点代号").split(".").length+1 Then
Dim flagin As Boolean = False
Dim jm As String = node.Row("节点级别")
For Each cnd As object In RowBase.Node.Nodes
If cnd.Row("节点代号") = dr("节点代号") Then
flagin = True
Exit For
End If
Next
If flagin = False Then
Dim nNode = TblBase.Rows.InsertNode(RowBase.Node.Row.Index + RowBase.Node.Nodes.Length + 1, RowBase.Node.Level + 1)
For Each c As Col In Tables("节点进度表").Cols
nNode.Row(c.name) = dr(c.name)
Next
Functions.Execute("loop", nnode)
End If
End If
Next
-- 发布时间：2018/4/6 14:31:00
--
1、筛选，参考
http://www.foxtable.com/webhelp/scr/1058.htm
2、得到筛选条件以后，把条件写到红色代码里面，如
vars("filter") = "1=1 and 某列=\'abc\'")
---------------
For Each dr As DataRow In DataTables("项目节点明细").Select("节点代号 like \'" & node.Row("节点代号") & ".%\' and " & vars("filter"))
-- 发布时间：2018/4/10 10:00:00
--
参考
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105535&authorid=0&page=0&star=1
-- 发布时间：2018/4/11 9:24:00
--
在绘制甘特图的时候，按同样方法获取汇总数据并绘制出来
-- 发布时间：2018/4/11 10:36:00
--
1、没看懂你要把什么数据显示出来；
2、如果要显示两行甘特图，参考
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:规划管理系统.foxdb |
-- 发布时间：2018/4/11 12:17:00
--
1、你的表格那里没有数据；
2、对应的是【总表】还是【评价表】？总用时的数据、节点代号的数据是已经存在生成的数据了没有？
-- 发布时间：2018/4/11 12:27:00
--
以下是引用nuoyan88在2018/4/11 12:23:00的发言：
对应的是总表，总表是每天填写的，有时也会不填写，根据实际工作而定的
用12楼项目，请填写好数据，节点代码、总用时等......再发实例上来测试
-- 发布时间：2018/4/11 15:01:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:规划管理系统新0411.zip |
-- 发布时间：2018/4/11 16:10:00
--
总表那里，请设置成加载全部数据，把所有数据加载出来。
http://www.foxtable.com/webhelp/scr/1813.htm
-- 发布时间：2018/4/11 16:52:00
--
18楼的例子，我打开测试，没问题。请使用18楼例子测试一下。