- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 高手帮下忙 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=157879)
-- 发布时间：2020/11/1 0:10:00
-- 高手帮下忙
a表第一列里有个这个地址
{"Id". *97cade9cdca14d048cd5914be38b6f69. jpg", "Nume":“签名文件jpg", "Size":17245}什么显示岀来
-- 发布时间：2020/11/1 20:31:00
--
显示什么？显示到哪里？
-- 发布时间：2020/11/2 0:50:00
--
显示在网页上
-- 发布时间：2020/11/2 8:38:00
--
文件必须放到web目录下：http://www.foxtable.com/mobilehelp/topics/0044.htm
Select Case e.Path
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","客户资料")
.AddInput("姓名","姓名","text").value = "舒淇"
.AddInput("地点","地点","text").Value = "蒙古草原"
.AddInput("日期","日期","date").value = #10/12/2012#
Case "test.htm"
Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","客户资料")
.AddInput("姓名","姓名","text").value = "舒淇"
.AddInput("地点","地点","text").Value = "蒙古草原"
.AddInput("日期","日期","date").value = #10/12/2012#
dim r as row = tables("表A").current
if r isnot nothing then
Dim jo As JObject = JObject.Parse(r("第一列")) \'http://www.foxtable.com/mobilehelp/topics/0140.htm
With .AddUploader("up1","",True)
.AllowAdd = False \'关闭文件上传功能
.AddImage(jo（"Id"）)
With .AddUploader("up1","",True)
.AllowAdd = False \'关闭文件上传功能
.AddImage(jo（"Id"）)
End With
end if
End With
e.WriteString(wb.Build) \'生成网页
End Select
End With
e.WriteString(wb.Build) \'生成网页
End Select
-- 发布时间：2020/11/2 10:37:00
--
我说的是在窗口显示， 在WebBrowser1上显示，
-- 发布时间：2020/11/2 10:51:00
--
请上传实例说明
-- 发布时间：2020/11/2 11:07:00
--
{"Id". *97cade9cdca14d048cd5914be38b6f69. jpg", "Nume":“签名文件jpg", "Size":17245}
这个图片什么在电脑端上显示
-- 发布时间：2020/11/2 11:13:00
--
Dim w As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
w.Address = "D:\\问题\\1.png" 图片地址改为单元格里提取的名称
-- 发布时间：2020/11/2 11:33:00
--
代码：
Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = e.Form.Controls("TextBox3").text
此主题相关图片如下：捕获.jpg
-- 发布时间：2020/11/2 11:34:00
--
解析json数据：http://www.foxtable.com/mobilehelp/topics/0140.htm