主题：DropDownForm窗口显示前几行

本来设置的筛选条件保存下来，获取前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