Dim fdr As DataRow = DataTables("表a").Find("第一列 = '123'")
If fdr Is Nothing Then
msgbox("一行也没有")
End If
Tables("流水").Filter ="(" & fl & ") And " & flt
If Tables("流水").Rows.Count = 0 Then
msgbox("0行")