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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 条件筛选问题

共有2618人关注过本帖树形打印复制链接主题：条件筛选问题

liuruihua	小大 1楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	条件筛选问题 Post By：2015/8/1 18:32:00 [只看该作者] 用户已被锁定

don

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

加好友

发短信

等级：八尾狐帖子：1812 积分：12999 威望：0 精华：14 注册：2008/10/11 18:07:00

Post By：2015/8/1 20:01:00 [只看该作者]

Dim SQL,s1 As String

SQL = "Select * Fr" & "om{表A} Where 数量 <=9"

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim i As Integer =0

cmd.CommandText = SQL

dt = cmd.ExecuteReader()

Dim drs2 As List(of DataRow) = dt.Select("","物品,次序")

SQL =Nothing

s1 = " Union all S" & "elect 物品,次序,数量 Fr" & "om{表A} Where [_Identify] = @ID"

For Each dr1 As DataRow In drs2

If i >0 AndAlso dr1("物品") = drs2(i-1)("物品") AndAlso dr1("次序") = drs2(i-1)("次序")+1 Then

SQL+=s1.replace("@ID",drs2(i-1)("_Identify") )

SQL+=s1.replace("@ID",dr1("_Identify") )

End If

i+=1

If SQL IsNot Nothing Then

SQL= SQL.SubString(11)

Output.Show(SQL)

End If

[此贴子已经被作者于2015/8/1 20:01:35编辑过]

liuruihua	小大 3楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2015/8/2 9:59:00 [只看该作者] 用户已被锁定

liuruihua	小大 4楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2015/11/10 12:46:00 [只看该作者] 用户已被锁定

大红袍

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

加好友

发短信

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

Post By：2015/11/10 14:29:00 [只看该作者]

Dim SQL,s1 As String
SQL = "Select * Fr" & "om{表A} Where 数量 <=9"

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim i As Integer =0

cmd.CommandText = SQL
dt = cmd.ExecuteReader()
Dim drs2 As List(of DataRow) = dt.Select("","物品,次序")

SQL =Nothing
s1 = " Union all S" & "elect 物品,次序,数量 Fr" & "om{表A} Where [_Identify] = @ID"

Dim count As Integer = 1
For Each dr1 As DataRow In drs2
    If i >0 AndAlso dr1("物品") = drs2(i-1)("物品") AndAlso dr1("次序") = drs2(i-1)("次序")+1 Then
        count += 1
        If count = 3 Then
            SQL+=s1.replace("@ID",drs2(i-2)("_Identify") )
            SQL+=s1.replace("@ID",drs2(i-1)("_Identify") )
            SQL+=s1.replace("@ID",dr1("_Identify") )
            count = 1
        End If
    End If
    i+=1
Next

If SQL IsNot Nothing Then
    SQL= SQL.SubString(11)
    Output.Show(SQL)

End If

liuruihua	小大 6楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：四尾狐帖子：781 积分：9870 威望：0 精华：0 注册：2008/9/1 13:47:00	Post By：2015/11/10 14:45:00 [只看该作者] 用户已被锁定

下一主题 >> << 上一主题

主题：条件筛选问题