- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- C1FlexGrid 插入节点问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101892)
-- 发布时间：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
-- 发布时间：2017/6/9 13:13:00
-- 谢谢你。
昨天晚上学习了几个小时，不得入门！
谢谢你，英明神武的指教。
-- 发布时间：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)("子级号"))