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


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

主题:组织结构图标注颜色问题

帅哥哟,离线,有人找我吗?
y2287958
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4772 积分:34668 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2024/11/4 17:17:00 [显示全部帖子]

干嘛不用目录树做呢?可以随心所欲的

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4772 积分:34668 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2024/11/6 9:40:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1101.foxdb

见【窗口1】,其他细节自个调整

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4772 积分:34668 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2024/11/6 19:07:00 [显示全部帖子]

加个:dr.save
试试

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4772 积分:34668 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2024/11/7 9:46:00 [显示全部帖子]

那就执行两次呗

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4772 积分:34668 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2024/11/7 9:46:00 [显示全部帖子]

For i As Integer = 0 To 1
    For Each 行 As DataRow In DataTables("表A").DataRows
        Dim 找到行 As DataRow = DataTables("表A").Find("参数代码='" & 行("上级代码") & "'")
        If 找到行 Is Nothing Then
            行("内容") = 行("参数代码") & 行("参数名称")
        Else
            行("内容") = 找到行("内容") & "\" & 行("参数代码") & 行("参数名称")
        End If 
    Next
Next

 回到顶部