主题：节点分配异常

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

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"))

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=105535&authorid=0&page=0&star=1

 

1、没看懂你要把什么数据显示出来；

 

2、如果要显示两行甘特图，参考

 

 

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

点击浏览该文件:规划管理系统.foxdb

1、你的表格那里没有数据；

 

2、对应的是【总表】还是【评价表】？总用时的数据、节点代号的数据是已经存在生成的数据了没有？

 

用12楼项目，请填写好数据，节点代码、总用时等......再发实例上来测试

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

点击浏览该文件:规划管理系统新0411.zip

总表那里，请设置成加载全部数据，把所有数据加载出来。

 

http://www.foxtable.com/webhelp/scr/1813.htm

 

 

 

18楼的例子，我打开测试，没问题。请使用18楼例子测试一下。

Dim fdr As DataRow = DataTables("工作记录总表").find("计划日期=#" & dt & "# and 节点代号='" & r("节点代号") & "' and 项目代号='" & r("项目代号") & "'")