蓝主，帮忙出手了，这个我小白太难了，2个项目代码我贴在下面，不会整合Dim str As String = e.Form.Controls("ComboBox1").Text
Dim cbx3 As WinForm.ComboBox = e.Form.Controls("ComboBox3")
Dim tbs As new List(Of Table)
For Each t As Table In Tables
tbs.add(t)
Next
Dim isFound As Boolean = False
For i As Integer = vars("b") To tbs.count - 1
Dim t As Table = tbs(i)
Dim cr As Integer = 0
If i = vars("b") Then cr = vars("x") + 1
For r As Integer = cr To t.rows.count-1
Dim cc As Integer = 0
If i=vars("b") AndAlso r = cr Then cc = vars("y") + 1
For c As Integer = cc To t.cols.count-1
If cbx3.text = "完全匹配" Then
If t.rows(r)(c) = str Then Isfound = True
Else
If t.rows(r)(c) Like "*" & str & "*" Then Isfound = True
End If
If Isfound Then
MainTable = t
t.Select(r, c)
vars("b") = i
vars("x") = r
vars("y") = c
isfound = True
goto break
End If
Next
Next
Next
break:
If isfound = False Then
msgbox("没有了!")
vars("b") = 0
vars("x") = 0
vars("y") = 0
End If
全表查询，参考代码 dim str as string = e.form.controls("Textbox1").Text
Dim filter As String = "1=2"
For Each c As Col In CurrentTable.Cols
filter &= " or convert(" & c.name & ",'System.String') like '%" & str & "%'"
Next
CurrentTable.Filter = filter
|
加好友 
发短信
Post By：2021/11/19 11:36:00 [只看该作者]
