如何把新增的技术支持邮箱作为user.name。并且把密码都改为bdcom - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何把新增的技术支持邮箱作为user.name。并且把密码都改为bdcom

共有9252人关注过本帖树形打印复制链接主题：如何把新增的技术支持邮箱作为user.name。并且把密码都改为bdcom

liujywwy

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

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/8/6 16:43:00 [显示全部帖子]

Dim druser As DataRow = DataTables("技术支持信息表").SqlFind("name = '" & user.name & "'")
If User.Name = "liujiyong@bdcom.com.cn" Then
    DataTables("需求明细表").LoadFilter = ""
Else If druser.Isnull("新负责人邮箱") Then
    DataTables("需求明细表").LoadFilter = "技术支持邮箱 = '" & User.Name & "' or 流程 = '" & user.Group & "'"
Else
    DataTables("需求明细表").LoadFilter = "技术支持邮箱 = '" & User.Name & "' or 技术支持邮箱 in ('" & druser("新负责人邮箱") .Replace(",", "','") & "') or 流程 = '" & user.Group & "'"
End If

DataTables("需求明细表").Load()

在需求明细表，除了liujiyong@bdcom.com.cn 可以加载所有的user.name的行。

其他的应该是同一user.name只加载用这个user.name登录的行，不应该加载其他的user.name的行。

现在感觉都加载了。

请问哪里出问题了？

liujywwy

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

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/8/6 16:58:00 [显示全部帖子]

好像还是不对啊。

仍然是全部加载。

另外新负责人邮箱也好像没生效，并没有加载之前的用户的行

比如，555@bdcom.com.cn 的新负责人邮箱为666@bdcom.com.cn

666@bdcom.com.cn 这用户并没有加载555@bdcom.com.cn 的行。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:临时版本跟踪系统26.rar

liujywwy

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

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/8/6 17:03:00 [显示全部帖子]

此主题相关图片如下：555666.png

liujywwy

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

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/8/6 17:16:00 [显示全部帖子]

直接修改代码的方式，还是一样。

要不你远程看看

liujywwy

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

加好友

发短信

等级：三尾狐帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00

Post By：2014/8/6 17:16:00 [显示全部帖子]

以下是引用有点甜在2014-8-6 17:09:00的发言：

你输入的数据本来就不符合规范啊，多了那么多空格。

1、你去修改你的数据库的表结构，name列的类型，改成varchar(50)

2、或者直接改代码

Dim druser As DataRow = DataTables("技术支持信息表").SqlFind("name = '" & user.name & "'")
If User.Name.Trim() = "liujiyong@bdcom.com.cn" Then
    DataTables("需求明细表").LoadFilter = ""
Else
    If druser.Isnull("新负责人邮箱") Then
        DataTables("需求明细表").LoadFilter = "技术支持邮箱 = '" & User.Name.trim() & "' or 流程 = '" & user.Group & "'"
    Else
        DataTables("需求明细表").LoadFilter = "技术支持邮箱 = '" & User.Name.trim() & "' or 技术支持邮箱 in ('" & druser("新负责人邮箱").Trim().Replace(",", "','") & "') or 流程 = '" & user.Group & "'"
    End If
End If

DataTables("需求明细表").Load()

我并没有输入空格