以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 请教用折叠模式分组汇总问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186847) |
||||
-- 作者:13315253800 -- 发布时间:2023/6/2 19:31:00 -- 请教用折叠模式分组汇总问题 蓝老师您好! 请教用折叠模式分组汇总后,如何删除表中的数量和金额均为空的行,包括子行和父行 Dim st As New LayerTreeSetting st.PathCol = "科目代码" st.Lengths = {1, 3,
2} st.TreeCol = "科目名称" st.AggregateCols =
{"数量", "金额"} st.UseStyle = True Tables("会计科目").ShowGridTree(st) |
||||
-- 作者:13315253800 -- 发布时间:2023/6/2 19:37:00 -- 我用下面的按钮代码,把有数据的父行也删除了 DataTables("会计科目").DeleteFor("数量 Is Null And 金额 Is Null") |
||||
-- 作者:有点蓝 -- 发布时间:2023/6/3 8:46:00 -- 要遍历处理,参考:http://www.foxtable.com/webhelp/topics/3386.htm |
||||
-- 作者:13315253800 -- 发布时间:2023/6/5 15:19:00 -- \'如果某一行有子行,那就禁止删除此行,可以自己做个删除按钮,代码为: Dim cr As Row = Tables("会计科目").Current If Tables("会计科目").GridTreeVisible Then If cr.HasChild() Then MessageBox.show("此行有子行, 无法删除!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning) Return End If DataTables("会计科目").DeleteFor("数量 Is Null And 金额 Is Null") End If \'cr.Delete()
|
||||
-- 作者:13315253800 -- 发布时间:2023/6/5 15:20:00 -- 蓝老师上面的代码没能实现删除空行,请指导一下 |
||||
-- 作者:13315253800 -- 发布时间:2023/6/5 15:21:00 -- 实例
|
||||
-- 作者:有点蓝 -- 发布时间:2023/6/5 15:35:00 --
|