主题：老师帮我看看

1、做一个网页模板，把地址的地方替换成如【视频地址】

2、读取模板，把【视频地址】替换成你表格的数据，然后指定给webbrowser

3、currentChanged事件

Dim dz As String = e.Table.ccurrent("第一列")
Dim mb As String = FileSys.ReadAllText("d:\test.txt", encoding.default)
mb = mb.Replace("【视频地址】", dz)
Dim web = forms("窗口1").controls("webbrowser1").basecontrol
web.documenttext = mb