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

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

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

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

以下是引用liujywwy在2014-8-6 15:22:00的发言：

还是没明白，难道技术支持信息表里面的“新负责人邮箱”不用？

现在不都通过外部表users来增加管理用户的吗？

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

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

[此贴子已经被作者于2014-8-6 15:28:03编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

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

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

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

回复63楼，那你就参考62楼的代码

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/6 16:47: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
End If

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

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

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

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

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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()