- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 升级后又出现的错误提示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=136748)
-- 发布时间：2019/6/20 16:36:00
-- 升级后又出现的错误提示
老师看看这是什么问题，我的水平看不懂了。不知道该怎么去查问题
此主题相关图片如下：搜狗截图20190620163454.jpg
-- 发布时间：2019/6/20 16:37:00
--
懒人做到底，，我把代码发上来，老师们指教给我改改吧
Dim wb As New weui
Dim e As RequestEventArgs = args(0)
Dim wbiz As New WXBizCrypt("ww78ccca7608362047","foxtable","zhangyuandongzhouyongjiezhangyiming12345678")
Dim msg As String = wbiz.DecryptMsg(e) \'解密消息
Dim xo As Foxtable.XObject = Foxtable.XObject.parse(msg)
Dim yhm As String = xo("UserID")
If e.PostValues.Count = 0 Then \'输入页面
wb.AddForm("","form1","st.htm")
With wb.AddInputGroup("form1","ipg1","图片查询")
.AddInput("款号","款号","Text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
Else \'生产显示页面
Dim kuanhao As String = e.Values("款号")
Dim ksyb As String
If FileSys.FileExists(Vars("样品库路径") & kuanhao & ".jpg") Then
ksyb = e.Values("款号")
Else
Dim dr As DataRow
If DataTables("订单数据").Find("[现货号]=\'" & e.Values("款号") & "\'" ,"_identify Desc") IsNot Nothing Then
dr = DataTables("订单数据").Find("[现货号]=\'" & e.Values("款号") & "\'" ,"_identify Desc")
If FileSys.FileExists(Vars("样品库路径") & dr("原货号") & ".jpg") Then
kuanhao = dr("原货号")
ksyb = e.Values("款号") & " " & dr("原货号") & "(" & dr("单号") & ")"
Else
Dim dr1 As DataRow
If DataTables("订单数据").Find("[现货号]=\'" & dr("原货号") & "\'" ,"_identify Desc") IsNot Nothing Then
If FileSys.FileExists(Vars("样品库路径") & dr1("原货号") & ".jpg") Then
kuanhao = dr1("原货号")
ksyb = e.Values("款号") & " " & dr("原货号") & "(" & dr("单号") & ") " & dr1("原货号") & "(" & dr1("单号") & ")"
Else
Dim dr2 As DataRow
If DataTables("订单数据").Find("[现货号]=\'" & dr1("原货号") & "\'" ,"_identify Desc") IsNot Nothing Then
If FileSys.FileExists(Vars("样品库路径") & dr2("原货号") & ".jpg") Then
kuanhao = dr2("原货号")
ksyb = e.Values("款号") & " " & dr("原货号") & "(" & dr("单号") & ") " & dr1("原货号") & "(" & dr1("单号") & ") " & dr2("原货号") & "(" & dr2("单号") & ")"
Else
kuanhao = dr2("原货号") & "无图且停止搜索"
ksyb = e.Values("款号") & " " & dr("原货号") & "(" & dr("单号") & ") " & dr1("原货号") & "(" & dr1("单号") & ") " & dr2("原货号") & "(" & dr2("单号") & ") 无图"
End If
Else
ksyb = e.Values("款号") & " " & dr("原货号") & "(" & dr("单号") & ") " & dr1("原货号") & "(" & dr1("单号") & ") 未找到"
End If
End If
Else
ksyb = e.Values("款号") & " " & dr("原货号") & "(" & dr("单号") & ") 未找到"
End If
End If
Else
ksyb = "未找到现货号为" & e.Values("款号") & "的订单数据"
End If
End If \'以上代码获取有图片的货号kuanhao和搜索记录ksyb.
wb.AddForm("","form1","st.htm")
With wb.AddInputGroup("form1","ipg1","图片查询")
.AddInput("款式演变","款式演变","Text").Value = ksyb
.AddInput("下图款号","下图款号","Text").Value = kuanhao
With .AddUploader("up1","",True)
.AllowAdd = False \'关闭文件上传功能
.AddImage("./360云盘/同步/样品库/" & kuanhao & ".jpg")
If FileSys.FileExists(Vars("样品库路径") & kuanhao & "底.jpg") Then
.AddImage("./360云盘/同步/样品库/" & kuanhao & "底.jpg")
End If
If FileSys.FileExists(Vars("样品库路径") & kuanhao & "内.jpg") Then
.AddImage("./360云盘/同步/样品库/" & kuanhao & "内.jpg")
End If
If FileSys.FileExists(Vars("样品库路径") & kuanhao & "样.jpg") Then
.AddImage("./360云盘/同步/样品库/" & kuanhao & "样.jpg")
End If
End With
End With
With wb.AddInputGroup("form1","ipg2","重新查询")
.AddInput("款号","款号","Text").value = yhm
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
End If
-- 发布时间：2019/6/20 16:40:00
--
你的内部函数【st】有代码出错，贴出对应代码看看
-- 发布时间：2019/6/20 16:42:00
--
升级之前用着没问题，，升级后一触发代码就报错了。
-- 发布时间：2019/6/20 16:48:00
--
以下是引用sky-18在2019/6/20 16:42:00的发言：
升级之前用着没问题，，升级后一触发代码就报错了。
升级之前用着没问题，，升级后一触发代码就报错了。
弹出msg，看值是否正确
msgbox(msg)
Dim xo As Foxtable.XObject = Foxtable.XObject.parse(msg)
-- 发布时间：2019/6/20 16:53:00
--
按你说的弹出这个
此主题相关图片如下：搜狗截图20190620165116.jpg
-- 发布时间：2019/6/20 16:58:00
--
msgbox(e.PlainText) 的值，看是否正常
返回的是错误值，也就是，你调用此函数之前返回的e.PlainText的内容，本身就已经出错了。
[此贴子已经被作者于2019/6/20 16:59:38编辑过]
-- 发布时间：2019/6/20 17:02:00
--
我还有刚刚升级前发布的项目，运行起来是没有问题的。
是不是又有哪些与微信相关的函数和之前不一样了？
才开始学习微信接口，有点困难
-- 发布时间：2019/6/20 17:04:00
--
如果是在调用函数之前就又错的话，
Dim wbiz As New WXBizCrypt("ww78ccca7608362047","foxtable","zhangyuandongzhouyongjiezhangyiming12345678")
这条代码有很大的嫌疑呀。。
-- 发布时间：2019/6/20 17:04:00
--
msgbox(e.PlainText) 的值，弹出什么？
看看红色的参数，是否有错
Dim wbiz As New WXBizCrypt("ww78ccca7608362047","foxtable","zhangyuandongzhouyongjiezhangyiming12345678")