专家坐堂-[求助]加载指定行不对。Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]加载指定行不对。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=57637)

--  作者：liujywwy
--  发布时间：2014/9/28 11:56:00
--  [求助]加载指定行不对。

在需求明细表，如果是录入组，希望之加载技术支持邮箱等于登录的用户账号的行。怎么加载为空啊。请看看代码哪里有问题。

Dim druser As DataRow = DataTables("技术支持信息表").SqlFind("name = \'" & user.name & "\'")
If User.Name.Trim() = "liujiyong@bdcom.com.cn" Then
    DataTables("需求明细表").LoadFilter = ""
Else
    Select Case user.Group
        Case "录入"
            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
        Case "审核"
            DataTables("需求明细表").LoadFilter = "流程 = \'" & user.Group & "\'"
    End Select
End If
DataTables("需求明细表").Load()

--  作者：有点甜
--  发布时间：2014/9/28 11:58:00
--

你msgbox看看

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

看是否有满足条件的数据

--  作者：liujywwy
--  发布时间：2014/9/28 12:02:00
--

以下是引用有点甜在2014-9-28 11:58:00的发言：

你msgbox看看

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

看是否有满足条件的数据

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

--  作者：有点甜
--  发布时间：2014/9/28 12:04:00
--
那加载的肯定是这个条件的数据啊，你去查你的表数据，看是否有满足的。

--  作者：liujywwy
--  发布时间：2014/9/28 12:08:00
--

以下是引用有点甜在2014-9-28 12:04:00的发言：
那加载的肯定是这个条件的数据啊，你去查你的表数据，看是否有满足的。

有技术支持等于yexiaogang@bdcom.com.cn 行，但打开工程加载为空的数据。哦。我发现这个技术支持邮箱加了下划线，和这关系吗？



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

试了一下，即使把下划线去掉，打开工程需求明细表加载的也是为空，点击全部也不加载。

[此贴子已经被作者于2014-9-28 12:17:50编辑过]

--  作者：liujywwy
--  发布时间：2014/9/28 14:28:00
--
再发一下，看看能否引起各位大侠的关注。呵呵。

--  作者：Bin
--  发布时间：2014/9/28 14:31:00
--
可能是数据有空格, 电脑眼中 "A" 和"A " 是不同的

全部加载也加载不出数据? 你要么是搞错数据源了, 要么是写死了加载条件

上个例子看看吧

--  作者：有点甜
--  发布时间：2014/9/28 14:44:00
--

你的截图明显有错啊。 coom.cn

--  作者：Bin
--  发布时间：2014/9/28 14:46:00
--

以下是引用有点甜在2014-9-28 14:44:00的发言：

你的截图明显有错啊。 coom.cn

.

--  作者：liujywwy
--  发布时间：2014/9/28 15:14:00
--

以下是引用有点甜在2014-9-28 14:44:00的发言：

你的截图明显有错啊。 coom.cn

哦。确实是。老师比我们初学者仔细多了。

不过我觉得应该把or 流程 = \'" & user.Group & "\'去掉。不管他属于哪个group，只要满足技术支持邮箱 = User.Name就加载他的数据。

Select Case user.Group
        Case "录入"
            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 & "\'"