主题：筛选

 Dim name As String = "李四"

 Dim count1 as integer = DataTables("表A").Compute("count(_Identify)", "第三列 = '" & name & "'")

 Dim count2 as integer = DataTables("表A").Compute("count(_Identify)", "")

 Forms("窗口1").Controls("TextBox1").Text = count1 & "," & (count2-count1)

 

Dim name As String = "李四"

Dim count1 As Integer = DataTables("表A").Compute("count(_Identify)", "第三列 = '" & name & "'")

Dim count2 As Integer = DataTables("表A").Compute("count(_Identify)", "")

Forms("窗口1").Controls("TextBox1").Text = count1 & "," & (count2-count1)

name = "李四"

count1 = DataTables("表B").Compute("count(_Identify)", "第三列 = '" & name & "'")

count2 = DataTables("表B").Compute("count(_Identify)", "")

Forms("窗口1").Controls("TextBox2").Text = count1 & "," & (count2-count1)

Dim name As String = "李四"

Dim d As Date = "2017-06-20"

Dim count1 As Integer = DataTables("表A").Compute("count(_Identify)", "第三列 = '" & name & "' and 日期 = #" & d & "#")

Dim count2 As Integer = DataTables("表A").Compute("count(_Identify)", "日期 = #" & d & "#")

Forms("窗口1").Controls("TextBox1").Text = count1 & "," & (count2-count1)

name = "李四"

count1 = DataTables("表B").Compute("count(_Identify)", "第三列 = '" & name & "'  and 日期 = #" & d & "#")

count2 = DataTables("表B").Compute("count(_Identify)", "日期 = #" & d & "#")

Forms("窗口1").Controls("TextBox2").Text = count1 & "," & (count2-count1)

你把DataTables改成Tables就可以了。