| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 如何修入层级目录树“显示所有行”的名称 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193503) |
| -- 作者：zhuxinhui -- 发布时间：2024/9/20 18:02:00 -- 如何修入层级目录树“显示所有行”的名称 如何修入层级目录树“显示所有行”的名称 想将”显示所有行“改为类别 Dim trv As WinForm.LayersTree = e.Form.Controls("LayersTree1") Dim st As New LayerTreeSetting st.PathCol = "目录树" st.TextCol = "名称" st.Separator = "." \'st.GridTree = True \'st.Unique = True trv.BuildFilterTree(Tables("基础资料"), st) |
| -- 作者：有点蓝 -- 发布时间：2024/9/21 9:02:00 -- 这个改不了的 |
| -- 作者：zhuxinhui -- 发布时间：2024/9/22 9:30:00 -- Dim trv = e.Form.Controls("LayersTree1").basecontrol If trv.Selectednode.fullpath = "显示所有行" Then Tables("基础资料").Filter = "[代码] =\'0\'" End If 把上面的代码放在Click里面就出错，提示： .NET Framework 版本：4.0.30319.42000 Foxtable 版本：2024.8.16.1 错误所在事件：窗口,基础资料主窗口,LayersTree1,Click 详细错误信息： 未设置对象变量或 With 块变量。 但是放在DoubleClick里面就正常运行
|
| -- 作者：有点蓝 -- 发布时间：2024/9/22 20:14:00 -- If trv.Selectednode isnot nothing andalso trv.Selectednode.fullpath = "显示所有行" Then |