主题：满足条件的计数

Dim cmd As New SQLCommand,v As Integer

cmd.Con nection Name = "数据源名称"

cmd.CommandText = "Sel ect Count(*) From {表A} Where Year(日期)=2017 And [列名] Like '%红%'"

v = cmd.ExecuteScalar

msgbox(v)

方法二：

Dim v As Integer

v = DataTables("表A").Compute("Count([_Identify])","[日期]>=#1/1/2017# And [日期]<=#12/31/2017# And [列名] Like '%红%'")

Output.Show(v)