给文本框增加一个查找功能

[vbxbxy]

文本框已经连接了一个表里的字段
希望能在下面的文本框里输入我想找到的内容
上面的信息就都变成我想找的内容的详细
就是用select 然后具体的代码可以给我一个吗？谢谢

[milaoshu1020]

写好了,代码如下:

Option Explicit

Private mintX As Integer
Private mintY As Integer
Private mcolText As New Collection

Private Sub Command6_Click()
    Do
        Dim i As Integer
        For i = mintY To mcolText.Count
            Dim intPos As Integer
            intPos = InStr(mintX, mcolText(i).Text, Text13.Text, vbTextCompare)
            
            If intPos > 0 Then
                With mcolText(i)
                    .SelStart = intPos - 1
                    .SelLength = Len(Text13.Text)
                    .SetFocus
                End With
                
                mintX = intPos + Len(Text13.Text)
                mintY = i
                Exit Sub
            End If
            
            mintX = 1
        Next
        
        If mintX = 1 And mintY = 1 Then
            MsgBox "没有找到!"
        Else
            mintX = 1
            mintY = 1
        End If
    Loop
End Sub

Private Sub Form_Load()
    mcolText.Add Text1
    mcolText.Add Text2
    mcolText.Add Text3
    mcolText.Add Text4
    mcolText.Add Text5
    mcolText.Add Text6
    mcolText.Add Text7
    mcolText.Add Text8
    mcolText.Add Text9
    mcolText.Add Text10
    mcolText.Add Text11
    
    Text13.Text = "分"
End Sub

Private Sub Text13_Change()
    mintX = 1
    mintY = 1
End Sub

下载地址:
链接：https://pan.baidu.com/s/11VYZaCeMdo3IehyGudqhKQ
提取码：8jkn

运行示例:

[milaoshu1020]

刚才的代码有点问题,没有找到的时候会不停提示,修改了一下:

Option Explicit

Private mintX As Integer
Private mintY As Integer
Private mcolText As New Collection

Private Sub Command6_Click()
    Do
        Dim i As Integer
        For i = mintY To mcolText.Count
            Dim intPos As Integer
            intPos = InStr(mintX, mcolText(i).Text, Text13.Text, vbTextCompare)
            
            If intPos > 0 Then
                With mcolText(i)
                    .SelStart = intPos - 1
                    .SelLength = Len(Text13.Text)
                    .SetFocus
                End With
                
                mintX = intPos + Len(Text13.Text)
                mintY = i
                Exit Sub
            End If
            
            mintX = 1
        Next
        
        If mintX = 1 And mintY = 1 Then
            MsgBox "没有找到!"
            Exit Sub
        Else
            mintX = 1
            mintY = 1
        End If
    Loop
End Sub

Private Sub Form_Load()
    mcolText.Add Text1
    mcolText.Add Text2
    mcolText.Add Text3
    mcolText.Add Text4
    mcolText.Add Text5
    mcolText.Add Text6
    mcolText.Add Text7
    mcolText.Add Text8
    mcolText.Add Text9
    mcolText.Add Text10
    mcolText.Add Text11
    
    Text13.Text = "分"
End Sub

Private Sub Text13_Change()
    mintX = 1
    mintY = 1
End Sub

下载地址:
链接：https://pan.baidu.com/s/1yTvF80ZAy0y1e7lWM5F-Dw
提取码：i7du

[vbxbxy]

Text13.Text = "分"
一直提示找不到怎么办啊？

然后我是想能不能查找第一个text里面的内容，因为和数据库连接了，里面的内容1000+，所以想整一个查找功能
能不能帮我做一下可以找到数据库里面的内容那种的辛苦你了大佬~！

[vbxbxy]

[quote=引用 1 楼 milaoshu1020 的回复:]
上来就把帖子结了。。。我到时候会再开一个帖子的，求指导大佬~！

[milaoshu1020]

数据库的话用select语句就行了;

想让我帮你的话,你得把文件共享一下,就是先上传到百度网盘,然后点击分享按钮,把共享代码贴在这里;

[vbxbxy]

引用 5 楼 milaoshu1020 的回复:

数据库的话用select语句就行了;

想让我帮你的话,你得把文件共享一下,就是先上传到百度网盘,然后点击分享按钮,把共享代码贴在这里;

代码里面都是您刚才发给我的，我这个窗体是直接用vb6.0里面的这个自动创建的窗体，不是用代码连接的数据库

[milaoshu1020]

把vbp所在文件夹共享一下吧,我得知道字段名;