主题：满足条件的计数

求助：我要在窗口中对满足2017年的包涵红字（红上衣、红裤子、橘红领带、、、、）的物料进行计数统计，代码不知道怎么编写，请各位老师指教

Dim txt  As  String = e.Form.Controls("TextBox4").Text
 Dim tbl As Table = Tables("部品质量查询_Table1")
 If txt = "" Then
     tbl.Filter = ""
 Else
     txt = "'%" & txt & "%'"
     tbl.Filter = "不良描述 Like " & txt & " Or 部件名称 Like " & txt &  " Or 序号 Like " & txt &  " Or 不良描述 Like " & txt
 End If

甜老师：按照你已前指导的这个命令已满足了！

老师，还是不行，上面命令只是找出红色物品的明细，无法计数统计。

我上传了附件，一个表，一个窗口，我想在窗口中通过按钮对2017年所有带“红”色的物品进行计数统计，最后得出值为3并输出报表为

年               计数

2017            3

请老师指教。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table