做个按钮,代码写法:
Dim r As Row = Tables("xxx").CurrentIf r("网址")>"" Then Dim Proc As New Process Proc.File = r("网址") Proc.Start()End If