Foxtable(狐表) → 用户栏目 → 专家坐堂 → 升级后又出现的错误提示


  共有1892人关注过本帖树形打印复制链接

主题：升级后又出现的错误提示
帅哥哟，离线，有人找我吗？
sky-18
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：655 积分：5004 威望：0 精华：0 注册：2011/11/26 17:46:00 		升级后又出现的错误提示  发帖心情 Post By：2019/6/20 16:36:00 [只看该作者]

老师看看这是什么问题，我的水平看不懂了。不知道该怎么去查问题
图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图20190620163454.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
sky-18
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：655 积分：5004 威望：0 精华：0 注册：2011/11/26 17:46:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/6/20 16:40:00 [只看该作者]

你的内部函数【st】有代码出错，贴出对应代码看看

 

图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
sky-18
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：655 积分：5004 威望：0 精华：0 注册：2011/11/26 17:46:00 		  发帖心情 Post By：2019/6/20 16:42:00 [只看该作者]

升级之前用着没问题，，升级后一触发代码就报错了。

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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)
 回到顶部
帅哥哟，离线，有人找我吗？
sky-18
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：655 积分：5004 威望：0 精华：0 注册：2011/11/26 17:46:00 		  发帖心情 Post By：2019/6/20 16:53:00 [只看该作者]

按你说的弹出这个
图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图20190620165116.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/6/20 16:58:00 [只看该作者]

 msgbox(e.PlainText) 的值，看是否正常

 

返回的是错误值，也就是，你调用此函数之前返回的e.PlainText的内容，本身就已经出错了。

 

 

[此贴子已经被作者于2019/6/20 16:59:38编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
sky-18
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：655 积分：5004 威望：0 精华：0 注册：2011/11/26 17:46:00 		  发帖心情 Post By：2019/6/20 17:02:00 [只看该作者]

我还有刚刚升级前发布的项目，运行起来是没有问题的。
是不是又有哪些与微信相关的函数和之前不一样了？
才开始学习微信接口，有点困难
 回到顶部
帅哥哟，离线，有人找我吗？
sky-18
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：655 积分：5004 威望：0 精华：0 注册：2011/11/26 17:46:00 		  发帖心情 Post By：2019/6/20 17:04:00 [只看该作者]

如果是在调用函数之前就又错的话，
Dim wbiz As New WXBizCrypt("ww78ccca7608362047","foxtable","zhangyuandongzhouyongjiezhangyiming12345678")
这条代码有很大的嫌疑呀。。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/6/20 17:04:00 [只看该作者]

msgbox(e.PlainText) 的值，弹出什么？

 

看看红色的参数，是否有错

 

Dim wbiz As New WXBizCrypt("ww78ccca7608362047","foxtable","zhangyuandongzhouyongjiezhangyiming12345678")
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询