主题：求助：如何计算物品入库中入库物品的种数 如何查找并显示当前库存小于300的物品 并全部显示出来如：白菜，库存100需采购200|牛肉，库存100需采购200

 问题二：

jy2.links(2).text = "今日入库物品【" & DataTables("入库出库").Compute("count(物品名称)","入库时间 >= #" & Date.Today & " 00:00:00#  and 入库时间<= #" & Date.Today & " 23:59:59#") & "】种"

 问题一

Dim ls As List(Of String) = DataTables("入库出库").GetValues("物品名称", "库存 <= 300 and 物品名称 is not null")
Dim idxs As String = "-1,"
Dim info As String = ""
For Each s As String In ls
    Dim fdr As DataRow = DataTables("入库出库").Find("物品名称 = '" & s & "'", "入库时间 desc, 出库时间 desc")
    If fdr IsNot Nothing Then
        idxs &= fdr("_Identify") & ","
        Info &= s & "库存:" & fdr("库存") & vbcrlf
    End If
Next
Tables("入库出库").Filter = "_Identify in (" & idxs.TrimEnd(",") & ")"
MyTimers("计划1").Enabled = False
msgbox(info)
MyTimers("计划1").Enabled = True
jy2.Links(3).Text = "急需采购物品【" & ls.count & "】种"