以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  接口代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121203)

--  作者:kmbn
--  发布时间:2018/7/1 12:56:00
--  接口代码
按照例子写的代码,
在命令窗口里可以执行,那要如何把结果在表里或类似表里展示出来
我是想写在按钮里的,单击就可以在表里展示结果
--  作者:有点甜
--  发布时间:2018/7/1 16:47:00
--  

直接拷贝命令窗口的代码到按钮里面,不就可以了?

 

具体问题,截图或者上传实例说明。


--  作者:kmbn
--  发布时间:2018/7/3 17:54:00
--  
代码在命令窗运行如下图:
但放在按钮里,点击后没有显示,可能是数据格式不对,不知道怎么把查询到的数据显示到表里

--  作者:kmbn
--  发布时间:2018/7/3 17:57:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

--  作者:有点蓝
--  发布时间:2018/7/3 21:06:00
--  
参考:http://www.foxtable.com/mobilehelp/scr/0252.htm
--  作者:kmbn
--  发布时间:2018/7/4 10:22:00
--  
老师,这些实例都是在命令窗下执行的,能不能有在临时表这类里显示的例子代码
--  作者:有点甜
--  发布时间:2018/7/4 10:33:00
--  

比如,你可以显示到一个label或者一个文本框textbox里面,如代码

 

Dim str As String = ""
Dim jo As JObject = Jobject.Parse(ClipBoard.GetText)
If jo("showapi_res_body")("data") IsNot Nothing Then
    For Each jt As JToken In jo("showapi_res_body")("data")
        str &= jt("time").ToString & " | " & jt("context").ToString & vbcrlf
    Next
End If
msgbox(str)
\'e.form.controls("textbox1").text = str


--  作者:kmbn
--  发布时间:2018/7/6 10:48:00
--  
老师,你代码里的”data“是下图里一样的取值吗

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20180706104345.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20180706104252.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20180706104139.jpg
图片点击可在新窗口打开查看




--  作者:kmbn
--  发布时间:2018/7/6 10:49:00
--  
那这个天气接口里要取那个呢

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20180706104017.jpg
图片点击可在新窗口打开查看


--  作者:kmbn
--  发布时间:2018/7/6 10:54:00
--  
代码在命令窗下可行

图片点击可在新窗口打开查看此主题相关图片如下:微信图片_20180706105223.jpg
图片点击可在新窗口打开查看