主表(表名为计日工)设置了层级关系,列编码为001001001001的结构,还有项目名称、事项名称(公司、项目、队伍、事项4个层级),项目在主表增加子行时,项目名称列的行中自行默认继承填入父行的项目名称。第1层级与第2层级由管理员或开发者手动建立,项目名称也由管理员或开发者手动填写,非管理员和开发者只能根据第2级建立第3层级和第4层级,用控件增子行的方式增加,项目名称与要继承第2层级的项目名称。在datarowadded事件中要怎么写代码
已上传请老师指导,在导航的计日工台账里
在项目名称列填入字符条件:当第1层级增子行时,第2层级不继承第1层级的字符,须手动输入,在第2层级增子行时,第3层级要继承第2层级的字符,以下层级增子行全继承上层级的字符
[此贴子已经被作者于2025/3/15 11:54:29编辑过]
再请问,在折叠展开时,能不能点一下只展开一层 再点一下展开下一层,以此类推,或还有没其他什么好办法
你的版本过高 我打不开怎么办啊 我2022的 无法更新了
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