帮助中的例子

 
此主题相关图片如下：image 3.jpg

我自己做的DropDownForm窗口 输入筛选条件后显示如下：

此主题相关图片如下：image 5.jpg

本来设置的筛选条件保存下来，获取前5行的_Identify值，然后重新设置筛选。

比如本来的代码

Dim t As Table = Tables("表A")
t.filter = "第一列 like \'%123%\'"

改成如

Dim t As Table = Tables("表A")
Dim str As String = "第一列 like \'%123%\'"
Dim drs = t.DataTable.Select(str, "日期 desc")
Dim filter As String = "1=2"

If drs.count >= 5 Then
    For i As Integer = 0 To 4
        filter &= " or _Identify = " & drs(i)("_Identify")
    Next
Else
    For Each r As Row In drs
        filter &= " or _Identify = " & r("_Identify")
    Next
End If

t.filter = filter