以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  C1FlexGrid 插入节点问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=101892)

--  作者：lanbor --  发布时间：2017/6/9 11:16:00 --  C1FlexGrid 插入节点问题 再次请教C1FlexGrid 插入同级子节点时，不知道怎么定位。 如图所示“子行号3” 本应该是“子行2的下子节点”， 但当插入”子行号4“ 以后，子行号3就成了“子行号4” 的子节点了。 请教：如何正确控制：二级以上的子节点中插入同级节点，不影响已经存在的下级子节点位置。 问题有点菜，达到目的就行。 此主题相关图片如下：节点定位.jpg 先谢谢了！  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:目录树项目.zip

--  作者：有点色 --  发布时间：2017/6/9 12:26:00 --   Dim RowBase As C1FlexGrid.Row = args(0).Row Dim Node As C1FlexGrid.Node node=RowBase.Node For Each dr As DataRow In DataTables("test2").Select("父级号=\'" & node.Row("子级号") & "\'")          Dim nNode = TblBase.Rows.InsertNode(tblbase.Rows.count, RowBase.Node.Level + 1)     For Each c As Col In Tables("t").Cols         nNode.Row(c.name) = dr(c.name)     Next     Functions.Execute("loop", nnode)     Next

--  作者：lanbor --  发布时间：2017/6/9 13:13:00 --  谢谢你。 昨天晚上学习了几个小时，不得入门！ 谢谢你，英明神武的指教。

--  作者：lanbor --  发布时间：2017/6/9 23:46:00 --  再请教：如何取当前行当前栏位值 再请教：如何取得当前行当前栏位值 接着前面的环境请教。 当这个C1FlexGrid的TreeView 生成后， 如何取得，Tables("t")表中当前行的值呢？ 我制定了一个：TblBase_MouseClick 函数： Dim Form1 As String = Forms.ActiveForm.Name   \' 取当前窗口名称 Dim Tab1 As String = Forms.ActiveForm.TableName  \'取当前表名称 msgbox(Forms.ActiveForm.TableName)                   \'这名能显示 Dim tb1 As Table= Tables("t")  \'重要样本,不要删除 Dim Row1 As Row = tb1.Current \'定位到 这个表就行. Msgbox(row1("子级号"))    \'这句报错

--  作者：有点蓝 --  发布时间：2017/6/10 8:49:00 --   msgbox(Tables("t").Grid.Rows(Tables("t").RowSel+1)("子级号"))