- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请教用折叠模式分组汇总问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186847)
-- 发布时间：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)
-- 发布时间：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
-- 发布时间：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()
-- 发布时间：2023/6/5 15:20:00
--
蓝老师上面的代码没能实现删除空行，请指导一下
-- 发布时间：2023/6/5 15:21:00
--
实例
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:折叠模式.zip |
-- 发布时间：2023/6/5 15:35:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:折叠模式.zip |