下面的代码是针对当前显示表的 我想换成窗口所有者表
If e.sender.Text.Contains("[") OrElse e.sender.Text.Contains("'") OrElse e.sender.Text.Contains("*") OrElse e.sender.Text = "回车查询筛选树" Then
Return
End If
Dim Values As New List (Of String)
Dim fltstr() As String
Dim txt As String = e.sender.Text
Dim flt As String
For Each c As Col In CurrentTable.Cols
If c.DataCol.IsString AndAlso c.Name <> "拼音" Then
Values.Add(c.Name)
End If
Next
If Values.Count = 0 Then
Return
End If
txt = txt.Trim()
If txt = "" Then
flt = ""
Else
If txt.Contains(",") Then
fltstr = txt.split(",")
Dim i As Integer = InStrRev(txt,",")
Dim py As String = txt.SubString(i)
py = "'*" & py & "*'"
For Int As Integer = 0 To Values.Count - 1
If CurrentTable.Cols(Values(Int)).DataCol.IsString = False Then
Continue For
End If
For Index As Integer = 0 To fltstr.Length - 1
If Int = Index Then
flt = flt & Values(Int) & " Like '*" & fltstr(Index) & "*'" & " And "
Else
Continue For
End If
Next
Next
flt = Left(flt,flt.Length - 5)
If CurrentTable.Cols.Contains("拼音") Then
flt = flt & " Or 拼音 Like " & py
End If
Else
txt = "'*" & txt & "*'"
For Int As Integer = 0 To Values.Count - 1
If CurrentTable.Cols(Values(Int)).DataCol.IsString = False Then
Continue For
End If
flt = flt & Values(Int) & " Like " & txt & " Or "
Next
flt = Left(flt,flt.Length - 4)
If CurrentTable.Cols.Contains("拼音") Then
flt = flt & " Or 拼音 Like " & txt
End If
End If
End If
CurrentTable.Filter = flt
If e.KeyCode = Keys.Enter Then
If e.sender.Text.Contains("[") OrElse e.sender.Text.Contains("'") OrElse e.sender.Text.Contains("*") OrElse e.sender.Text = "回车查询选择列" Then
Return
End If
Dim s As String = e.Form.Controls("CheckedComboBox选择列").Text
If s = "" OrElse s = "选择筛选列(最好包括拼音)" Then
Return
End If
Dim Colstr() As String
Colstr = s.split("|")
Dim t As Table = CurrentTable
Dim r As Row
Dim c As String
Dim txt As String = e.sender.Text
Dim flt As String
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim havestr As Integer = 0
For i As Integer = 0 To Colstr.Length - 1
If CurrentTable.Cols.Contains(Colstr(i)) = False Then
If trv.Nodes.Count > 0 Then
trv.Nodes.Clear()
End If
e.Form.Controls("CheckedComboBox选择列").Text = "选择筛选列(最好包括拼音)"
Return
End If
Next
For Each c In Colstr
If t.Cols(c).DataCol.IsString Then
havestr + = 1
End If
Next
If havestr = 0 Then
Return
End If
For Each r In t.Rows
For Each c In Colstr
If r.IsNull(c) Then
If t.Cols(c).DataCol.IsDate Then
r(c) = #01/01/0001#
ElseIf t.Cols(c).DataCol.IsNumeric Then
r(c) = 0
ElseIf t.Cols(c).DataCol.IsBoolean
r(c) = False
Else
r(c) = "空"
End If
End If
Next
Next
txt = txt.Trim()
If txt = "" Then
flt = ""
Else
txt = "'*" & txt & "*'"
For i As Integer = 0 To Colstr.Length - 1
If t.Cols(Colstr(i)).DataCol.IsString = False Then
Continue For
End If
flt = flt & Colstr(i) & " Like " & txt & " Or "
Next
If s.Contains("拼音") Then
flt = flt & " 拼音 Like " & txt
Else
flt = Left(flt,flt.Length - 4)
End If
End If
trv.StopRedraw()
trv.Nodes.Clear()
trv.BuildTree(t.DataTable.Name,s,flt)
trv.ResumeRedraw()
If trv.AllNodes.Count > 0 Then
trv.Nodes.Insert("显示所有行",0)
End If
trv.Select()
If t.DataTable.Type = 5 Then
For Each r In t.Rows
For Each c In Colstr
If t.Cols(c).DataCol.IsDate Then
If r(c) = #01/01/0001#
r(c) = Nothing
End If
ElseIf t.Cols(c).DataCol.IsNumeric Then
If r(c) = 0 Then
r(c) = Nothing
End If
ElseIf t.Cols(c).DataCol.IsBoolean Then
If r(c) = False Then
r(c) = Nothing
End If
Else
If r(c) = "空" Then
r(c) = Nothing
End If
End If
Next
Next
Else
t.DataTable.RejectChanges()
End If
End If
加好友 
发短信
Post By：2018/4/3 21:58:00 [只看该作者]
