在自定义函数里写控件内容出错 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在自定义函数里写控件内容出错

共有3796人关注过本帖树形打印复制链接主题：在自定义函数里写控件内容出错

xa139

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

等级：童狐帖子：282 积分：2835 威望：0 精华：0 注册：2019/4/23 11:17:00

在自定义函数里写控件内容出错 发帖心情

Post By：2021/5/25 17:17:00 [显示全部帖子]

Dim MaxVal As String = Args(0)

Dim str As String

try

Form("webjson").Controls("TextBox1").Value = JObject.Parse(Args(0)) （这句出错不知道为啥）

Dim jo As JObject = JObject.Parse(Args(0))

If jo("msgtype").ToString = "text" Then

str ="可识别json格式数据 "+ jo("text")("content").Tostring

'Return "json数据"+ jo("text")("content")

Else

str ="不可识别的json "+ Args(0).tostring

'Return Args(0)

End If

Return str

catch

str ="NO Json Data" + Date.Now

Return str

End try

xa139

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

等级：童狐帖子：282 积分：2835 威望：0 精华：0 注册：2019/4/23 11:17:00

Post By：2021/5/25 17:20:00 [显示全部帖子]

xa139

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

等级：童狐帖子：282 积分：2835 威望：0 精华：0 注册：2019/4/23 11:17:00

Post By：2021/5/25 17:56:00 [显示全部帖子]

谢谢

主题：在自定义函数里 写控件内容出错