以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  在自定义函数里 写控件内容出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=168879)

--  作者：xa139 --  发布时间：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

--  作者：有点蓝 --  发布时间：2021/5/25 17:19:00 --   什么错误？

--  作者：xa139 --  发布时间：2021/5/25 17:20:00 --

--  作者：linyunu1 --  发布时间：2021/5/25 17:24:00 --   Forms

--  作者：xa139 --  发布时间：2021/5/25 17:56:00 --   谢谢