表达式问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表达式问题

共有2229人关注过本帖树形打印复制链接主题：表达式问题

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

表达式问题

Post By：2015/5/21 10:22:00 [只看该作者]

老师这个代码可以怎么写吗

For Each dr In dt.Select("角色 like '\' & ' & e.NewText & ' Or 角色 Like ' & e.NewText & ' & '\' " )'重命名分组
dr("角色") =dr("角色") .Replace(e.NewText,"")

大红袍

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

加好友

发短信

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

Post By：2015/5/21 10:23:00 [只看该作者]

直接写出你的需求。

角色列的内容如何定义

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2015/5/21 10:28:00 [只看该作者]

挺迷惑怎么改

角色列构成

经理/张三

经理/张三丰

财务经理/张三丰

角色里面重命名需要把张三改成 e.NewText 李四可是张三丰也会被改应该怎么写呢

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/21 10:31:00 [只看该作者]

For Each dr In dt.Select("角色 like '\" & e.NewText & "%' Or 角色 Like '%" & e.NewText & "\' or 角色 Like '%\" & e.NewText & "\%' or 角色 ='" & e.NewText & "'" )'重命名分组

dr("角色") =dr("角色") .Replace(e.NewText,"")

这个意思?

blsu33

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

加好友

发短信

等级：九尾狐帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00

Post By：2015/5/21 10:39:00 [只看该作者]

图片点击可在新窗口打开查看就是这样

大红袍

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

加好友

发短信

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

Post By：2015/5/21 10:41:00 [只看该作者]

你代码本来就有问题，不明白你想表达什么。大致这样写

Dim nstr As String = ""
For Each s As String In dr("角色").Split("/")
    If s = e.OldText Then
        nstr &= e.NewText & "/"
    Else
        nstr &= s & "/"
    End If
Next

dr("角色") = nstr.Trim("/")

--------------------------------

或者换一种思路，比如

经理/张三

经理/张三丰

都加入一个字符，变成

经理/张三/

经理/张三丰/

这样，张三/ 就是唯一的了

下一主题 >> << 上一主题

主题：表达式问题