主题：这样的筛选如何设置？

在文本框中输入“一  二”，就是筛选出包括“一”、“二”的行？

用Split将输入的值拆分为一个数组，然后根据此数组合成筛选表达式。

我也偿试过，最终以失败告终。

失败？

贴出你写的代码，我帮你看看。

大概是这样吧

 

If e.Form.Controls("TextBox1").Value <> "" Then
    Dim Vals() As String = e.Form.Controls("TextBox1").Value.Split(" ")
    Dim Filter As String
    For Val As Integer = 0 To Vals.Length - 1
        Filter = Filter & "|[某列] Like '*" & Vals(Val) & "*'"
    Next
    CurrentTable.Filter = Filter.Trim("|").Replace("|"," Or")
End If

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

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

Values = Multi.split("0")应改为Values = Multi.split(" ")

有两个缺点：

1、两组字符之间只能有一个空格

2、每组字符要指定对应的列

第一个可以克服，第二个问题每组字符不能指定对应列

 

两列数据，这样就可以

 

Dim Vals() As String = e.Form.Controls("TextBox1").Text.Split(" ")
Dim Filter As String
Select Case Vals.Length
    Case 1
        Tables("窗口1_Table1").Filter = "[第一列] Like '*" & Vals(0) & "*'"
    Case 2
        Tables("窗口1_Table1").Filter = "[第一列] Like '*" & Vals(0) & "*' And [第二列] Like '*" & Vals(1) & "*'"
    Case Else
        Tables("窗口1_Table1").Filter = ""
End Select

 

Dim cmd As New SQLCommand
Dim Count AS Integer
cmd.CommandText = "select count(*) FROM {表A}"
Count= cmd.ExecuteNonQuery()
messagebox.show(count)

输出的结果为0，为什么不是表A的实际行数？

为什么用ExecuteNonQuery()而不是ExecuteScalar()呢？

 

Dim Count AS Integer
Dim cmd As New SQLCommand
cmd.CommandText = "Select Count(*) FROM {表A}"
Count = cmd.ExecuteScalar()
Output.Show(Count)