以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  折叠模式下收缩节点小异常  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186165)

--  作者：z769036165 --  发布时间：2023/4/10 15:17:00 --  折叠模式下收缩节点小异常 Dim w As Row = Tables("表A").Current w.Collapsed = True For Each dr As Row In w.GetChildren(True)     dr.Collapsed = True Next 选择需要收缩的节点，执行上面的代码后，收缩后的节点显示文字字体颜色变成了白色

--  作者：有点蓝 --  发布时间：2023/4/10 15:21:00 --   正常呀，被选中的单元格，失去焦点后，默认就是绿色背景白色字体

--  作者：z769036165 --  发布时间：2023/4/10 17:59:00 --   在表里面任何地方随便鼠标点下，白色字体就变黑色字体了，本身表的字体也是黑色的

--  作者：有点蓝 --  发布时间：2023/4/10 20:10:00 --   应该是表格的样式问题，换个样式

--  作者：z769036165 --  发布时间：2023/4/11 8:18:00 --   其他样式也这样

--  作者：有点蓝 --  发布时间：2023/4/11 8:30:00 --   请上传实例测试