[求助]关于目录树授权 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于目录树授权

共有2401人关注过本帖树形打印复制链接主题：[求助]关于目录树授权

大红袍

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/26 15:00:00 [显示全部帖子]

特殊符号，要特殊处理。或则改名

md.CommandText = "Select [Group],name F rom {Users}"

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/26 15:13:00 [显示全部帖子]

如果要截取，请可以用sql语句处理，下面的函数是用access数据库的，Sqlserver数据，请用对应的函数替换。

select Mid(config,7,InStr(Mid(config,7,len(config)-6),' ')) as [group] f rom {表A}

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/26 15:41:00 [显示全部帖子]

select SUBSTRING(config,7,CHARINDEX(' ',SUBSTRING(config,7,len(config)-6))) as [group] f rom {表A}

大红袍

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/26 15:47:00 [显示全部帖子]

Dim trv2 As WinForm.TreeView = e.F orm.Controls("TreeView2")

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.Connection Name = "ShcsErpSql"

cmd.CommandText = "select SUBSTRING(config,7,CHARINDEX(' ',SUBSTRING(config,7,len(config)-6))) as [group], name F rom {Users}"

dt = cmd.ExecuteReader()

trv2.BuildTree(dt,"Group|Name")

trv2.ExpandAll()

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/26 16:04:00 [显示全部帖子]

那就不要弄成备注型，改成字符型，给足够的长度即可。

主题：[求助]关于目录树授权