主题：[求助]筛选时间并统计该段时间包含某关键字的利润列总和

Tables("表D").Filter = "日期 > = #" & e.Form.Controls("DateTimePicker1").Value & "# And 日期 < = #" & e.Form.Controls("DateTimePicker2").Value & "# And 类别 Like '*"  & e.Form.Controls("ComboBox1").Value & "'"
Dim sum As Double
For Each r As Row In Tables("表D").Rows
    sum + = r("利润")
Next
MessageBox.Show(sum)

ComboBox1的自定义列表项目：

sc|cd

如果用Compute，更简单点：

Dim flt As String = "日期 > = #" & e.Form.Controls("DateTimePicker1").Value & "# And 日期 < = #" & e.Form.Controls("DateTimePicker2").Value & "# And 类别 Like '*"  & e.Form.Controls("ComboBox1").Value & "'"
MessageBox.Show(DataTables("表D").Compute("Sum(利润)",flt))