不请教不行了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 不请教不行了

共有2790人关注过本帖树形打印复制链接主题：不请教不行了

hbhb

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

加好友

发短信

等级：狐神帖子：5054 积分：13025 威望：0 精华：0 注册：2014/5/15 21:34:00

不请教不行了 发帖心情

Post By：2015/7/19 18:57:00 [只看该作者]

袍大师：好！必须请教了！见实例

请问如何实现如下要求：因处理数据量大看来必须用sql语句了，讨教sql语句怎么写？

要求：如何获得第一列的如下条件的字符集合或表？结果因为2、3 、4、6

1、第四列、第五列不为空

2、第三列是“a"或"b"

3、第二列不是“a"或"b"

4、第一列相同

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目10.zip

hbhb

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

加好友

发短信

等级：狐神帖子：5054 积分：13025 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2015/7/19 19:39:00 [只看该作者]

大师：下面的语句运行为何要15秒？dpzhs.count 也只有1000个

Dim ctr As DataRow

For Each dpzh As String In dpzhs

ctr = pzbdt.Find("pzzb12 not in ( 'a','b','c','d')" & "and (pzzb33 <> 0 or pzzb33 is not null)" & "and pzzb5 = '" & dpzh & "'")

If ctr IsNot Nothing Then

xdpzhs.Add(dpzh)

End If

游

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

加好友

发短信

等级：小狐帖子：321 积分：1916 威望：0 精华：0 注册：2014/8/24 13:36:00

Post By：2015/7/19 20:13:00 [只看该作者]

Find本身也是一个遍历

遍历嵌套遍历，不慢才怪。

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/7/20 10:18:00 [只看该作者]

Dim pdr As DataRow = Nothing
Dim flag As Boolean = True
For Each dr As DataRow In DataTables("表A").Select("", "第一列")
    If pdr IsNot Nothing AndAlso pdr("第一列") <> dr("第一列") Then
        If flag = True Then
            msgbox(pdr("第一列"))
        End If
        flag = True
    End If
    If flag = True Then
        If dr("第二列") = "a" OrElse dr("第二列") = "b" Then
            flag = False
        End If
        If dr.IsNull("第三列") = False AndAlso dr("第三列") <> "a" AndAlso dr("第三列") <> "b" Then
            flag = False
        End If
        If dr.IsNull("第四列") AndAlso dr.IsNull("第五列") Then
            flag = False
        End If
    End If
    pdr = dr
Next