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


  共有8984人关注过本帖树形打印复制链接

主题：如何把新增的技术支持邮箱作为user.name。并且把密码都改为bdcom
帅哥哟，离线，有人找我吗？
liujywwy
 小大  71楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		  发帖心情 Post By：2014/8/6 17:16:00 [只看该作者]

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

要不你远程看看
 回到顶部
帅哥哟，离线，有人找我吗？
liujywwy
 小大  72楼 | 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()

我并没有输入空格
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  73楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/6 17:17:00 [只看该作者]

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

我并没有输入空格

 

如果你的name类型是nchar，默认是会输入空格的。你要改列类型，改成varchar
 回到顶部
帅哥哟，离线，有人找我吗？
liujywwy
 小大  74楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		  发帖心情 Post By：2014/8/6 17:24:00 [只看该作者]

那其他的列需要改吗，比如手机号码，QQ等她们都是nchar

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  75楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/6 17:25:00 [只看该作者]

以下是引用liujywwy在2014-8-6 17:24:00的发言：
那其他的列需要改吗，比如手机号码，QQ等她们都是nchar

 

都改成varchar，nchar适用于那种固定位数的列。
 回到顶部
帅哥哟，离线，有人找我吗？
liujywwy
 小大  76楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		  发帖心情 Post By：2014/8/6 17:40:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：新建表.png
图片点击可在新窗口打开查看
新建的表---技术支持信息表，都改为了varchar了。

可是加载还是不对。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  77楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/6 17:44:00 [只看该作者]

 改完以后，重新赋值，保存。代码

 

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()
 回到顶部
帅哥哟，离线，有人找我吗？
liujywwy
 小大  78楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		  发帖心情 Post By：2014/8/6 17:50:00 [只看该作者]

我就是这么做的啊。

 回到顶部
帅哥哟，离线，有人找我吗？
liujywwy
 小大  79楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：633 积分：4034 威望：0 精华：0 注册：2014/6/23 10:27:00 		  发帖心情 Post By：2014/8/6 17:51:00 [只看该作者]

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

 改完以后，重新赋值，保存。代码

 

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

要不远程给看看？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  80楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/8/6 17:52:00 [只看该作者]

 加入代码看弹出结果

 

msgbox(DataTables("需求明细表").LoadFilter)
 回到顶部
总数 92 上一页 1 2 3 4 5 6 7 8 9 10 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04395 秒, 4 次数据查询