以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  急[求助]如何在界面实现即时数据自动合成的值通过按键打开网页  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97805)
--  作者：zhuya820
--  发布时间：2017/3/18 17:22:00
--  急[求助]如何在界面实现即时数据自动合成的值通过按键打开网页
如何实现我在数据库界面中录入公司产品信息，自动合成一个百度搜索引擎的按键实现数据的实时在线查询呢？？？

Select Case e.DataCol.Name
    Case "商品简称","厂商简称","品牌","规格型号"
         e.DataRow("AT_百度搜索") ="https://www.baidu.com/s?ie=utf-8&f=8&rsv_bp=1&tn=baidu&wd=" & e.DataRow("商品简称") & " " & e.DataRow("厂商简称") &" " & e.DataRow("品牌") & " " & e.DataRow("规格型号") & " " & e.DataRow("生产厂家") 
End Select

如自动合成无限极网址：https://www.baidu.com/s?ie=utf-8&f=8&rsv_bp=1&tn=baidu&wd=无限极(中国)有限公司

在表界面中已实现这功能，直接打开网页就可以了


如何在录入窗口面板界面实现即时数据自动合成的值通过按键打开网页这一功能呢？？？



 


[此贴子已经被作者于2017/3/18 20:14:31编辑过]
--  作者：狐狸爸爸
--  发布时间：2017/3/20 7:28:00
--  
可以用这个打开网页：

例如：

Dim Proc As New Process \'定义一个新的Process
Proc.File = "http://bbs.foxtable.com" \'指定要打开的网页地址
Proc.Start()