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")
Next
DataTables("表A").AppendLoad("[_Identify] in (" & ids.Trim(",") & ")")
加好友 
发短信
Post By：2019/2/20 15:59:00 [显示全部帖子]
