以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]搜索功能不区分大小写如何实现  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123142)
--  作者：81538475
--  发布时间：2018/8/8 18:14:00
--  [求助]搜索功能不区分大小写如何实现
目前的代码时这样，如何让搜索不区分大小写呢。
Dim s1 As String = e.Form.Controls("TextBox1").Text
If s1 <>"" Then
    For i As Integer = vars("row") To CurrentTable.Rows.Count - 1
        For j As Integer = vars("col")+1 To CurrentTable.Cols.Count - 1
            \'S1 = "\'%" & S1 & "%\'"
            If CStr(CurrentTable.Rows(i)(CurrentTable.Cols(j).Name)).Contains(s1) Then
                vars("row") = i
                vars("col") = j
                CurrentTable.Select(i,j)
                Return
            End If
        Next
        vars("col") = 0
    Next
    vars("col") = 0
    vars("row") = 0
End If
--  作者：有点甜
--  发布时间：2018/8/8 18:22:00
--  

 

If CStr(CurrentTable.Rows(i)(CurrentTable.Cols(j).Name)).toupper.Contains(s1.toupper) Then