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,"")
Next
这个意思?