目前的代码时这样,如何让搜索不区分大小写呢。
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