主题：如何把新增的技术支持邮箱作为user.name。并且把密码都改为bdcom

叫你直接去用户管理那里，就是改密码那里啊，输入某个用户对应的邮箱啊，这样数据就保存起来了啊。

如果要用“新负责人邮箱”，要改代码，怕你有不会啊。

Dim druser As DataRow = DataTables("用户表").SqlFind("name = '" & user.name & "'")

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

那不就是仍然是通过用户管理来管理账户的么。

在Tag输入abc@bdcom.com.cn.

然后在技术支持信息表的config内容如下:

Group审核PassWordnLQ+b3vT/k74Ou6oIlnzGA==Type2Tagabc@bdcom.com.cn

config保存了组，密码，tag信息。

不能在新增技术支持信息表的“新负责人邮箱”的内容作为tag的值吗？

如果这样可以的话，以后不就只需维护新增技术支持信息表了吗？

不好意思，我有点笨，请不吝赐教。

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的行。

现在感觉都加载了。

请问哪里出问题了？

代码

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
End If

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

好像还是不对啊。

仍然是全部加载。

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

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

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

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:临时版本跟踪系统26.rar

 你上传例子没有用啊，连不上你的数据源。

 你加入一句代码看看，截图发上来

msgbox(DataTables("需求明细表").LoadFilter)

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

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()