接口代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 接口代码

共有2478人关注过本帖树形打印复制链接主题：接口代码

kmbn

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：286 积分：1926 威望：0 精华：0 注册：2017/7/20 19:46:00

接口代码

Post By：2018/7/1 12:56:00 [只看该作者]

按照例子写的代码,
在命令窗口里可以执行，那要如何把结果在表里或类似表里展示出来
我是想写在按钮里的，单击就可以在表里展示结果

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/7/1 16:47:00 [只看该作者]

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

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

kmbn

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：286 积分：1926 威望：0 精华：0 注册：2017/7/20 19:46:00

Post By：2018/7/3 17:54:00 [只看该作者]

代码在命令窗运行如下图：

但放在按钮里，点击后没有显示，可能是数据格式不对，不知道怎么把查询到的数据显示到表里

kmbn

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：286 积分：1926 威望：0 精华：0 注册：2017/7/20 19:46:00

Post By：2018/7/3 17:57:00 [只看该作者]

此主题相关图片如下：1.jpg

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110334 积分：561518 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/7/3 21:06:00 [只看该作者]

参考：http://www.foxtable.com/mobilehelp/scr/0252.htm

kmbn

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：286 积分：1926 威望：0 精华：0 注册：2017/7/20 19:46:00

Post By：2018/7/4 10:22:00 [只看该作者]

老师，这些实例都是在命令窗下执行的，能不能有在临时表这类里显示的例子代码

有点甜

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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