Foxtable(狐表)用户栏目专家坐堂 → [求助]上传一个文件,e.PostValues.Count 一直是等于0


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

主题:[求助]上传一个文件,e.PostValues.Count 一直是等于0

帅哥哟,离线,有人找我吗?
ahui010
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:108 积分:1277 威望:0 精华:0 注册:2018/8/3 10:02:00
[求助]上传一个文件,e.PostValues.Count 一直是等于0  发帖心情 Post By:2020/6/22 11:31:00 [只看该作者]

哪个高手帮看一下这个代吗?
我要上传一个文件,选择好文件了,点确定没有上传,仍然弹出“初次加载网页“,等于说,e.PostValues.Count 一直是等于0的。

 

Case "updata.htm"
            Dim wb As New weui
        If Verified  = True Then  '如果已经登录了
        If e.PostValues.Count = 0 Then
        wb.AddForm("","form1","updata.htm")
        With wb.AddInputGroup("form1","ipg1","名册上传") '文件上传
            .AddUploader("up1","",true)
        End With
        With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1","确定", "submit")
                .Add("btn1","返回主页","","index.htm") '超链接
                .Add("btn2","查看校验","","yanzheng.htm")  '超链接
        End With
        MessageBox.Show("初次加载网页")

        Else


        MessageBox.Show("e.PostValues不等于0")

            Dim fhe As String
            For Each key As String In e.Files.Keys
                If key = "up1" Then

              MessageBox.Show("有文件" & key)

                For Each fl As String In e.Files(key)
                        e.SaveFile(key, fl, ProjectPath & "Attachments\" & vars("bh") & "_" & fl)
                 fhe = ProjectPath & "Attachments\" & vars("bh") & "_" & fl
                 MessageBox.Show("文件" & fhe)
                 Next
                End If
            Next
     end if
end if
       e.WriteString(wb.Build)

 


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20200622113328.png
图片点击可在新窗口打开查看

 

 

帮看一下错在哪里?
为什么没有表单提交上去?

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106603 积分:542186 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/6/22 12:05:00 [只看该作者]

文件判断 e.Files.count。输入框才有e.PostValues.Count

 回到顶部
帅哥哟,离线,有人找我吗?
ahui010
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:108 积分:1277 威望:0 精华:0 注册:2018/8/3 10:02:00
  发帖心情 Post By:2020/6/22 12:28:00 [只看该作者]

谢谢!已经改正过来,测试成功了。

 

第一次做网页版本的系统,这一点我看到过,但没有想到。


 回到顶部