以文本方式查看主题

-  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)

--  作者: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
--  
实例
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:折叠模式.zip


--  作者:有点蓝
--  发布时间:2023/6/5 15:35:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:折叠模式.zip