在微信公众号里如果用这个页面，照片是无法选择加入和显示？在手机浏览器里面如果使用这个页面，照片则可以选择加入和显示？造成这个的原因是啥呢？有没有办法解决微信公众号图片不能上传的问题呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在微信公众号里如果用这个页面，照片是无法选择加入和显示？

在手机浏览器里面如果使用这个页面，照片则可以选择加入和显示而且还有多项弹出选择菜单

造成这个的原因是啥呢？有没有办法解决微信公众号图片不能上传的问题呢？是否也可以实现多项弹出选择菜单呢？

页面代码如下：

Dim wb As New weui

Select Case e.Path

Case "xjrjzjf.htm"

If e.PostValues.Count = 0 Then

wb.AddPageTitle("","ph1","博融现金日记账")

wb.AddForm("","form1","xjrjzjf.htm")

With wb.AddInputGroup("form1","ipg1","现金日记账【收入记账】")

.AddInput("日期","日期","date")

.AddSelect("凭证种类","凭证种类","|fa piao|收据|收条|小piao|物流单|快递单|其它单据")

.AddInput("凭证号数","凭证号数","Text")

.AddInput("摘要","内容摘要","Text")

With .AddInput("借方金额","收入金额","number")

.Step = "0.01"

.Attribute = ""

End With

.AddSelect("借方","收入人员","|肖妍|费泓纶|田景兰")

.AddUploader("up1","照片",True) 'True表示允许上传多个文件

With wb.AddButtonGroup("form1","btg1",True)

.Add("btn1", "确定", "submit")

End With

e.WriteString(wb.Build)

Else

Dim nms() As String = {"日期","凭证种类","凭证号数","摘要","科目类别","日页","借方金额","借方","照片名","crc值"} '

Dim dr As DataRow = DataTables("现金日记账").AddNew()

For Each nm As String In nms

If e.PostValues.ContainsKey(nm) Then

dr(nm) = e.PostValues(nm)

End If

For Each key As String In e.Files.Keys

If key = "up1" Then

For Each fln As String In e.Files(key)

e.SaveFile(key, fln, ProjectPath & "Attachments\" & fln)

dr.Lines("照片名") = e.Files(key)

End If

dr.save()

With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页

.AddButton("btn1","继续增加","xjrjzjf.htm")

End With

e.WriteString(wb.Build)

End If

End Select

[此贴子已经被作者于2019/10/8 11:38:34编辑过]

主题：在微信公众号里如果用这个页面，照片是无法选择加入和显示？ 在手机浏览器里面如果使用这个页面，照片则可以选择加入和显示？ 造成这个的原因是啥呢？有没有办法解决微信公众号图片不能上传的问题呢？