[求助]界面无法上传文件，图片可以。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

新入菜鸟，问题如题。

函数代码及界面如下：

此主题相关图片如下：11.png

此主题相关图片如下：22.png

求指教，感谢！

嗯首次发贴，感谢跟进。

方法一的案例做了，分开写的上传和保存的2个页面。

但是录入表单的主界面上是要用一个跳转按钮？

跳转到上传文件的界面-->然后又跳转到保存提示的界面？

保存界面又得跳回来刚刚的录入主界面？ (操作步骤好像繁琐了，没图片上传的操作便捷)

要之前主界面录的数据还在，如何实现？ (有无案例)

表单里加的跳转按钮：

With wb.AddButtonGroup("form1","btngrp1")

With .Add("btn1","文件上传页面跳转","button")

.Class = "btnClass"

.Attribute = "style='font-style:italic;font-weight:900;' "

End With

跳转到-上传文件界面：

Dim e As RequestEventArgs = args(0)

Dim UserInfo As Win.YPD.UserInfo = args(1)

Dim sb As New StringBuilder

Select Case e.Path

Case "upload.htm"

sb.appendLine("<form enctype='multipart/form-data' action='accept.htm' method='post' id='form1' name='form1'>")

sb.appendLine("单文件上传: <input type='file' name='up1' id='up1'><br/><br/>")

sb.appendLine("多文件上传: <input type='file' name='up2' id='up2' multiple><br/><br/>")

sb.appendLine("<input Type='submit' name='Sumbit' id='Sumbit' value='确定'>")

sb.appendLine("</form>")

e.WriteString(sb.ToString)

End Select

跳转到-接收上传文件：

Dim e As RequestEventArgs = args(0)

Dim UserInfo As Win.YPD.UserInfo = args(1)

'Dim sb As New StringBuilder

Select Case e.Path

Case "accept.htm"

Dim sb As New StringBuilder

For Each key As String In e.Files.Keys

sb.AppendLine(key & " 上传" & e.Files(key).Count & "个文件,分别是:</br>")

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

sb.AppendLine(fl & "<br>")

'e.SaveFile(key,fl,"d:\web\uploadfiles\" & fl) '保存接收到的文件

e.SaveFile(key,fl,"d:\供应商合作平台\MiLunsoftWeb\uploadfiles\" & fl)

sb.AppendLine("</br>")

sb.AppendLine("以上文件服务器已正确接收并保存!")

e.WriteString(sb.ToString)

End Select

文件上传了，现在还需要返回到原表单(之前录了些数据)。

嗯不知怎么把上传文件的界面，和保存提示的界面，

都写在录入表单的主界面里。

5楼三个界面的代码怎么拼接的？求指导。

求如何把（上传文件界面）写到（输入数据的页面）里？

http://www.foxtable.com/mobilehelp/scr/0060.htm

该贴为图片上传

当前帖的问题是，5楼的代码，

如何把（上传文件界面）直接体现在（输入数据的页面）里？

菜鸟求指导。

嗯但语法不了解。(语法法这块建议找什么资料学习下？)

求指导：

Dim e As RequestEventArgs = args(0)

Dim UserInfo As Win.YPD.UserInfo = args(1)

Dim MainPage As Integer = e.GetValues("MainPage")

Dim PageURL As String = Nothing

Dim FormURL As String = Nothing

Select Case MainPage

Case 0 '新品申请

FormURL = "handle.htm?MainPage=0" '保存页

PageURL = "default.htm" '首页

Case 1 '新品视图

FormURL = "handle.htm?MainPage=1&page=" & e.GetValues("page") '保存页

PageURL = "gys_xpsq_st.htm?page=" & e.GetValues("page") '视图页

End Select

Dim wb As New WeUI

wb.Title = "供应商新品申请" '添加标题

wb.AppendHTML("<script src='./lib/ajaxform.js'></script>", True) '引入脚本文件

wb.AddToptips("", "toptip1", "") '用于显示动态错误提示

'表单字段内容--》》》

wb.AddForm("", "form1", FormURL) '指定接收表单数据的的页面为handle.htm里去做保存

With wb.AddInputGroup("form1", "ipg1", "供应商新品申请")

.AddHiddenValue("ID", System.Guid.NewGuid.ToString()) '设置界面隐藏唯一id

'字段名显示名类型 .input属性

.AddInput("填表日期", "<label style='color:red;'>填表日期</label>", "date")

.AddInput("品名", "<label style='color:red;'>品名</label>", "text").Placeholder = "请输入文本"

'图片上传------:

'With wb.AddInputGroup("form1","ipgA1","图片上传")

With wb.AddInputGroup("form1", "ipgA1", "")

With .AddUploader("up1", "图片上传", True)

.AllowDelete = True '允许删除

.Incremental = True '允许重复选择文件或连续拍照

End With

wb.AddToast("", "tst1", "正在上传", 1)

wb.AddToast("", "tst2", "上传成功", 0)

wb.AddToast("", "tst3", "上传失败", 0).Icon = "warn"

'wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件

'文件上传------: handle(新品提交页)

With wb.AddButtonGroup("form1", "btngrp1")

With .Add("btn1", "文件上传页面跳转", "button") '.Kind=1 'Kind设颜色默认0绿,1灰,2红

.Class = "btnClass"

.Attribute = "style='font-style:italic;font-weight:900;' "

End With

'------

'上面这里"文件上传"是做个跳转，用法不对。

'求指导【上传界面】的代码如何直接放进来。

'------

End With '最外面的

'操作按钮

wb.InsertHTML("<div style='height:50px'></div>")

wb.AddPage("","page1").Attribute = "style='position: fixed;bottom: 0;right: 0;left: 0'" '按钮组样式

With wb.AddButtonGroup("page1","btg22", False)

.Add("btn0", "新增", "button").Attribute = "" '提交(按钮单击调用函数)

.Add("btn1", "保存", "button").Attribute = "" '提交(按钮单击调用函数)

.Add("btnLast", "返回", "", PageURL) '超链接

.Add("btnList", "记录", "", "gys_xpsq_st.htm") '超链接

End With

e.WriteString(wb.Build)

Return Nothing

是删减了一点，觉得没用到的和其他的字段内容，为了帖出的代码不那么长..

应该关系不大吧？只想把【上传界面】的代码如何直接放到这个录入界面里去

主题：[求助]界面无法上传文件，图片可以。