Foxtable(狐表)用户栏目专家坐堂 → [求助]扩展列类型


  共有2051人关注过本帖树形打印复制链接

主题:[求助]扩展列类型

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107813 积分:548416 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/12/10 15:12:00 [显示全部帖子]

按钮事件

dim r as row  = Tables("XXX表").Current
if r isnot nothing andalso r.isnull("QQ") = false then
Dim proc As new Process
proc.File = "tencent://message/?uin=" & r("QQ")
proc.start
end if


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107813 积分:548416 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/12/10 16:32:00 [显示全部帖子]

网址参考

dim r as row  = Tables("XXX表").Current
if r isnot nothing andalso r.isnull("网址") = false then
Dim proc As new Process
proc.File =  r("网址")
proc.start
end if


旺旺
dim r as row  = Tables("XXX表").Current
if r isnot nothing andalso r.isnull("旺旺") = false then
Dim proc As new Process
proc.File = "http://www.taobao.com/webww/ww.php?ver=3&siteid=cntaobao&status=1&touid=" & r("旺旺")
proc.start
end if


 回到顶部