Foxtable(狐表)用户栏目专家坐堂 → [求助]子行继承父行的指定列名称


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

主题:[求助]子行继承父行的指定列名称

帅哥哟,离线,有人找我吗?
18107532666
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:131 积分:1200 威望:0 精华:0 注册:2019/12/27 20:56:00
[求助]子行继承父行的指定列名称  发帖心情 Post By:2025/3/14 21:00:00 [只看该作者]

主表(表名为计日工)设置了层级关系,列编码为001001001001的结构,还有项目名称、事项名称(公司、项目、队伍、事项4个层级),项目在主表增加子行时,项目名称列的行中自行默认继承填入父行的项目名称。第1层级与第2层级由管理员或开发者手动建立,项目名称也由管理员或开发者手动填写,非管理员和开发者只能根据第2级建立第3层级和第4层级,用控件增子行的方式增加,项目名称与要继承第2层级的项目名称。在datarowadded事件中要怎么写代码


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112774 积分:574227 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/3/15 9:21:00 [只看该作者]

请上传实例测试

 回到顶部
帅哥哟,离线,有人找我吗?
18107532666
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:131 积分:1200 威望:0 精华:0 注册:2019/12/27 20:56:00
  发帖心情 Post By:2025/3/15 11:49:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:例子.zip


已上传请老师指导,在导航的计日工台账里

在项目名称列填入字符条件:当第1层级增子行时,第2层级不继承第1层级的字符,须手动输入,在第2层级增子行时,第3层级要继承第2层级的字符,以下层级增子行全继承上层级的字符
[此贴子已经被作者于2025/3/15 11:54:29编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
18107532666
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:131 积分:1200 威望:0 精华:0 注册:2019/12/27 20:56:00
  发帖心情 Post By:2025/3/15 11:58:00 [只看该作者]

再请问,在折叠展开时,能不能点一下只展开一层 再点一下展开下一层,以此类推,或还有没其他什么好办法

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112774 积分:574227 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/3/15 13:04:00 [只看该作者]

在折叠展开时,默认就是只展开一层的,除非是其它层有手工点击展开过

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:例子.zip



 回到顶部
帅哥哟,离线,有人找我吗?
18107532666
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:131 积分:1200 威望:0 精华:0 注册:2019/12/27 20:56:00
  发帖心情 Post By:2025/3/15 13:06:00 [只看该作者]

你的版本过高 我打不开怎么办啊  我2022的 无法更新了

 回到顶部
帅哥哟,离线,有人找我吗?
18107532666
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:131 积分:1200 威望:0 精华:0 注册:2019/12/27 20:56:00
  发帖心情 Post By:2025/3/15 13:09:00 [只看该作者]

我的2022版本 打不开啊

 回到顶部
帅哥哟,离线,有人找我吗?
18107532666
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:131 积分:1200 威望:0 精华:0 注册:2019/12/27 20:56:00
  发帖心情 Post By:2025/3/15 13:27:00 [只看该作者]

能把代码发出来吗


 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112774 积分:574227 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/3/15 14:13:00 [只看该作者]

datacolchanged事件

If e.DataCol.Name = "编码" Then
    If e.DataRow.RowState = DataRowState.Added Then
        Dim idx As Integer = Tables(e.DataTable.Name).FindRow(e.DataRow)
        Dim r As Row = Tables(e.DataTable.Name).rows(idx)
        If r.Table.GridTreeVisible AndAlso r.Hierarchy > 1 Then
            Dim pr As Row = r.Parent
            e.DataRow("项目名称") = pr("项目名称")
        End If
    End If 
End If

 回到顶部