Foxtable(狐表) → 用户栏目 → 专家坐堂 → 组织结构图标注颜色问题


  共有6515人关注过本帖树形打印复制链接

主题：组织结构图标注颜色问题
帅哥，在线噢！
jhxb8821
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：951 积分：6490 威望：0 精华：0 注册：2016/4/15 22:24:00 		组织结构图标注颜色问题  发帖心情 Post By：2024/11/1 11:14:00 [显示全部帖子]

老师，这个代码表“备注”列有“问题”的，将问题放在最末端时颜色显示正常；若将“问题”放在末级前面的环节时，连接线就出现问题。我想要的理想效果是，可以将“问题”随意放在哪一个节点上，根据不同的提示问题显示不同的颜色，如：问题1显示红色，问题2显示黄色，问题3显示绿色。麻烦老师看看，能不能实现理想的效果？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1101.rar

 回到顶部
帅哥，在线噢！
jhxb8821
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：951 积分：6490 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/11/1 16:08:00 [显示全部帖子]

请问，老师看见了吗

 回到顶部
帅哥，在线噢！
jhxb8821
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：951 积分：6490 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/11/1 16:29:00 [显示全部帖子]

老师，上面的问是当作两个问题，我想要的理想效果不好解决的话，能否将下面这个小问题进一步完善一下：
这个代码表“备注”列有“问题”的，将问题放在最末端时颜色显示正常；若将“问题”放在末级前面的环节时，连接线就出现问题，这个问题能否解决？
 回到顶部
帅哥，在线噢！
jhxb8821
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：951 积分：6490 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/11/1 16:51:00 [显示全部帖子]

蓝老师，这几天你再琢磨一下，看能不能想到更好的办法

 回到顶部
帅哥，在线噢！
jhxb8821
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：951 积分：6490 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/11/4 14:29:00 [显示全部帖子]

老师，能否窗口加一个按钮写代码，将1楼窗口显示的内容生成一个PDF文件
[此贴子已经被作者于2024/11/4 14:29:47编辑过]
 回到顶部
帅哥，在线噢！
jhxb8821
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：951 积分：6490 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/11/5 19:44:00 [显示全部帖子]

y2287958老师，用目录树做我还不知道怎么做，麻烦老师写一下代码，让我学习一下

 回到顶部
帅哥，在线噢！
jhxb8821
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：951 积分：6490 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/11/6 13:51:00 [显示全部帖子]

非常感谢y2287958老师，提供了新的思路。

 回到顶部
帅哥，在线噢！
jhxb8821
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：951 积分：6490 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/11/6 14:57:00 [显示全部帖子]

 For Each dr As DataRow In DataTables("表BB").DataRows 'dr表示行
    Dim fdr As DataRow = DataTables("表BB").Find("本级代码='" & dr("上级代码") & "'") 'fdr表示找到行
    If fdr Is Nothing Then
        dr("自动生成标题路径") = dr("本级代码") & dr("标题名称")
    Else
        dr("自动生成标题路径") = fdr("自动生成标题路径") & "\" & dr("本级代码") & dr("标题名称")
    End If 
Next

蓝老师, 上面这个代码，窗口按钮生成标题路径, 点一次有的路径生成不齐全, 比如： \ B17年级 \ C11班 , 再点一次按钮, 就会生成完整的路径, 请老师修改完善一下

老师，需要两次赋值才能生成正确的路径，请教怎么修改代码
[此贴子已经被作者于2024/11/6 17:54:17编辑过]
 回到顶部
帅哥，在线噢！
jhxb8821
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：951 积分：6490 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/11/6 20:56:00 [显示全部帖子]

非常感谢y2287958老师

 回到顶部
帅哥，在线噢！
jhxb8821
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：951 积分：6490 威望：0 精华：0 注册：2016/4/15 22:24:00 		  发帖心情 Post By：2024/11/7 8:24:00 [显示全部帖子]

老师，经测试，问题依然存在，尚未解决

 回到顶部
总数 45 1 2 3 4 5 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询