以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]chrome浏览器搜索当前单元格值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=173219)
--  作者：miaoqingqing
--  发布时间：2021/11/19 11:36:00
--  [求助]chrome浏览器搜索当前单元格值
求助，chrome浏览器用百度搜索当前单元格值，chrome浏览器窗口置顶
chrome浏览器路径：D:\\Soft\\33-install\\Google\\Chrome\\Application\\chrome.exe
[此贴子已经被作者于2021/11/19 11:37:08编辑过]
--  作者：有点蓝
--  发布时间：2021/11/19 11:47:00
--  
搜索foxtable的单元格？做不到
--  作者：miaoqingqing
--  发布时间：2021/11/19 12:00:00
--  
是的，foxtable当前单元格的值，复制，调用chrome浏览器的百度搜索
蓝大师出手，应该可以实现吧。这个应该很多人都想有这个功能
[此贴子已经被作者于2021/11/19 12:00:56编辑过]
--  作者：有点蓝
--  发布时间：2021/11/19 12:09:00
--  
想多了。去问问谷歌敢不敢做这么一个功能？

自己使用代码处理，在foxtable里做搜索，参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=83815&skin=0
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=84611&skin=0
[此贴子已经被作者于2021/11/19 12:10:44编辑过]
--  作者：miaoqingqing
--  发布时间：2021/11/19 12:32:00
--  回复：（有点蓝）想多了。去问问谷歌敢不敢做这么一个...
蓝主，帮忙出手了，这个我小白太难了，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
--  作者：有点蓝
--  发布时间：2021/11/19 13:31:00
--  
不需要整合，单独使用即可。如果看不懂代码，请先学习基础：http://www.foxtable.com/webhelp/topics/1592.htm