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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]追加行

共有2164人关注过本帖树形打印复制链接主题：[求助]追加行

OKK

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

等级：一尾狐帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00

[求助]追加行 发帖心情

Post By：2019/2/20 15:30:00 [只看该作者]

_Identify 类型

1 快速

2 慢速

3 快速

4 慢速

5 快速

6 中速

7 中速

8 快速

9 快速

我想设计一个按钮，点击一下，加载两行类型列的值是快速的行，再点击一下，再加载两行类型列的值是快速的行，又再点击一下，又再加载两行类型列的值是快速的行...

请问怎么写代码？

有点蓝

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

等级：超级版主帖子：105947 积分：538804 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2019/2/20 15:59:00 [只看该作者]

Dim id As Integer = Tables("表A").Compute("max(_Identify)","类型='快速'")

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.ConnectionName = "数据源"

cmd.CommandText = "SELECT top 2 [_Identify] From {表A} where 类型='快速' and [_Identify] > " & id & " order by [_Identify]"

dt = cmd.ExecuteReader()

Dim ids As String = ""

For Each dr As Row In dt.DataRows

ids = ids & "," & dr("_Identify")

DataTables("表A").AppendLoad("[_Identify] in (" & ids.Trim(",") & ")")

OKK

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

等级：一尾狐帖子：407 积分：4268 威望：0 精华：0 注册：2016/11/22 19:30:00

Post By：2019/2/20 17:36:00 [只看该作者]

明白，谢谢了

主题：[求助]追加行