以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 求助:寻一个跳排裂变代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160837) |
||||
-- 作者:刘异 -- 发布时间:2021/2/23 17:49:00 -- 求助:寻一个跳排裂变代码 此主题相关图片如下:qq图片20210223173803.png |
||||
-- 作者:刘异 -- 发布时间:2021/2/23 17:50:00 --
|
||||
-- 作者:有点蓝 -- 发布时间:2021/2/23 21:05:00 --
|
||||
-- 作者:刘异 -- 发布时间:2021/2/24 10:39:00 -- 老师好: 我的版本是2019-4-12的打不开,麻烦把代码贴出来一下。 多谢!
|
||||
-- 作者:有点蓝 -- 发布时间:2021/2/24 10:40:00 -- 购买升级foxtable |
||||
-- 作者:刘异 -- 发布时间:2021/2/24 10:47:00 -- 哦,现在还可以用,后面如果有需求再升级吧,可不可以把代码贴出来一下哟。 谢谢了
|
||||
-- 作者:有点蓝 -- 发布时间:2021/2/24 11:22:00 -- datacolchanged事件 If e.DataCol.Name = "阶级" Then If e.NewValue = 1 AndAlso e.DataTable.Compute("count(阶级)","阶级=1") = 27 Then e.DataTable.ReplaceFor("第七列",2,"阶级=1") Dim str As String = e.DataTable.GetComboListString("上级编号","阶级=1 and 上级编号 is not null") e.DataTable.ReplaceFor("阶级",2,"阶级=1") Dim idx As Integer = 3 Do While str > "" e.DataTable.ReplaceFor("第七列",idx,"本级编号 in (" & str.Replace("|",",") & ")") str = e.DataTable.GetComboListString("上级编号","第七列=" & idx & " And 上级编号 Is not null") e.DataTable.ReplaceFor("阶级",idx,"第七列=" & idx) idx += 1 Loop e.DataTable.ReplaceFor("第七列",Nothing) End If End If
|
||||
-- 作者:刘异 -- 发布时间:2021/2/24 11:22:00 -- 多谢 |
||||
-- 作者:刘异 -- 发布时间:2021/2/24 11:35:00 -- 老师好:如果变动的是本级编号,怎么样让上级编号自动填入呢? |
||||
-- 作者:有点蓝 -- 发布时间:2021/2/24 11:45:00 -- 怎么知道上级编号填什么? |