Foxtable(狐表) → 用户栏目 → 专家坐堂 → C1FlexGrid 插入节点问题


  共有2413人关注过本帖树形打印复制链接

主题：C1FlexGrid 插入节点问题
帅哥哟，离线，有人找我吗？
lanbor
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：433 积分：4351 威望：0 精华：0 注册：2017/3/20 21:08:00 		C1FlexGrid 插入节点问题  发帖心情 Post By：2017/6/9 11:16:00 [只看该作者]

再次请教C1FlexGrid 插入同级子节点时，不知道怎么定位。
如图所示“子行号3” 本应该是“子行2的下子节点”，
但当插入”子行号4“ 以后，子行号3就成了“子行号4” 的子节点了。

请教：如何正确控制：二级以上的子节点中插入同级节点，不影响已经存在的下级子节点位置。
问题有点菜，达到目的就行。

图片点击可在新窗口打开查看此主题相关图片如下：节点定位.jpg
图片点击可在新窗口打开查看
先谢谢了！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:目录树项目.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：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
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：433 积分：4351 威望：0 精华：0 注册：2017/3/20 21:08:00 		谢谢你。  发帖心情 Post By：2017/6/9 13:13:00 [只看该作者]

昨天晚上学习了几个小时，不得入门！
谢谢你，英明神武的指教。

 回到顶部
帅哥哟，离线，有人找我吗？
lanbor
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：433 积分：4351 威望：0 精华：0 注册：2017/3/20 21:08:00 		再请教：如何取当前行当前栏位值  发帖心情 Post By：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("子级号"))    '这句报错
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/6/10 8:49:00 [只看该作者]

msgbox(Tables("t").Grid.Rows(Tables("t").RowSel+1)("子级号"))

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 5 次数据查询