uploader浏览已录入的照片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → uploader浏览已录入的照片

共有3423人关注过本帖树形打印复制链接主题：uploader浏览已录入的照片

dengk03

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：205 积分：1969 威望：0 精华：0 注册：2017/8/17 12:59:00

uploader浏览已录入的照片 发帖心情

Post By：2020/2/6 19:52:00 [只看该作者]

例子里给出了用uploader上传照片的例子，我想问下如何在再次编辑该行的时候，uploader显示出上次上传的那几张照片？代码该如何写？

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

Dim url As String = "prodedit.htm?page=" & page & "&oid=" & pr("生产编号") '传递页码和订单编号

wb.AddForm("","form1",url)

With wb.AddInputGroup("form1","ipg1",iif(e.GetValues.ContainsKey("oid"),"编辑生产单","新增生产单"))

With .AddInput("生产编号","生产编号","text")

.Value = pr("生产编号")

.Readonly = True

End With

.AddInput("生产日期","生产日期","date").Value = pr("生产日期")

Dim str1 As String = "|" & DataTables("库名").SQLGetComboListString("库名","使用中 = 'true'","序号") & "|"

str1 = str1.replace("|" & pr("生产厂") & "|","|[" & pr("生产厂") & "]|")

.AddSelect("生产厂","生产厂",str1.trimend("|"))

Dim str2 As String = "|" & DataTables("员工").SQLGetComboListString("姓名","在职 = 'true'","工号") & "|"

str2 = str2.replace("|" & pr("负责人") & "|","|[" & pr("负责人") & "]|")

.AddSelect("负责人","负责人",str2.trimend("|"))

Dim str3 As String = "|" & DataTables("产品").SQLGetComboListString("产品名称","使用中 = 'true'","产品编号") & "|"

str3 = str3.replace("|" & pr("产品名称") & "|","|[" & pr("产品名称") & "]|")

.AddSelect("产品名称","产品名称",str3.trimend("|"))

.AddUploader("质检记录","质检记录")

End With

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/7 11:38:00 [只看该作者]

比如：http://www.foxtable.com/mobilehelp/topics/0092.htm

With .AddUploader("质检记录","质检记录")
.AddImage(pr("质检记录"))

End With

dengk03

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：205 积分：1969 威望：0 精华：0 注册：2017/8/17 12:59:00

Post By：2020/2/7 13:01:00 [只看该作者]

.AddImage("./images/1.png")

.AddImage("d:/web/images/1.png")

以上这两种写法都是指向一个地址，但是发现用写法2的时候页面显示不出这张图片，而写法1时是正常的。是说写法2是错误的么？如果是这样那是说uploader的文件只能放在web文件夹下而不能任意指定位置么？

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

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/7 14:29:00 [只看该作者]

只能放在web文件夹下。

http://www.foxtable.com/mobilehelp/topics/0044.htm

dengk03

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：205 积分：1969 威望：0 精华：0 注册：2017/8/17 12:59:00

Post By：2020/2/7 21:53:00 [只看该作者]

按照例子submit改成ajax，表单的提交结果什么都没啥问题，但是每次都触发tst3上传失败，是啥原因呢？

ajaxform.js 内容

function afterSubmit(result){

hide("tst1");

if (result=='OK') {

show("tst2");

location="prodlist.htm";

}

else{

show("tst3",2000);

}

prodedit内容

.....

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

.Add("btn1", "增加快检", "submit").FormAction = url & "&addnextk=true" '加上addnext参数,表示保存后进入增加明细状态

.Add("btn4", "增加全检", "submit").FormAction = url & "&addnextq=true" '加上addnext参数,表示保存后进入增加明细状态

.Add("btn2", "保存", "button").Attribute= "" '正常提交,保存后进入编辑状态

If e.GetValues.ContainsKey("oid") = False Then '如过是新增订单

.Add("btn3", "取消", "button","prodlist.htm?page=" & page & "&deloid=" & pr("生产编号")) '删除新增订单后返回列表

ElseIf IsNew OrElse mr IsNot Nothing Then '如果在给旧订单新增或修改明细,则直接返回编辑状态

.Add("btn3", "取消", "button",url) '返回编辑状态

Else

.Add("btn3", "返回", "button","prodlist.htm?page=" & page) '返回列表

End If

End With

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

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

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

pr.Save() '必须保存,而且必须在最后保存,因为SQLAddNew增加的行,保存之后就会销毁,无法再调用

If e.PostValues.Count > 0 Then '如果是通过提交按钮访问,则给一个已经保存的提示给用户,时长500毫秒

wb.AddToast("","t1", "已经保存",0).Msec= 500

End If

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

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

e.WriteString(wb.Build) '生成网页

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/7 22:47:00 [只看该作者]

完整代码放到txt文件发上来

dengk03

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：205 积分：1969 威望：0 精华：0 注册：2017/8/17 12:59:00

Post By：2020/2/8 12:06:00 [只看该作者]

代码

[此贴子已经被作者于2020/2/8 12:06:30编辑过]

dengk03

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：205 积分：1969 威望：0 精华：0 注册：2017/8/17 12:59:00

Post By：2020/2/8 12:09:00 [只看该作者]

[此贴子已经被作者于2020/2/10 19:36:02编辑过]

有点蓝

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111393 积分：567029 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/2/8 13:49:00 [只看该作者]

保存会跳转到prodsave自定义函数？这个函数是什么页面进来的，prodsave.htm？

-----------------

proedit自定义程序

Dim url As String = "prodedit.htm?page=" & page & "&oid=" & pr("生产编号") '传递页码和订单编号

改为

Dim url As String = "prodsave.htm?page=" & page & "&oid=" & pr("生产编号") '传递页码和订单编号

-------------------

prodsave自定义函数，加上返回值

If valid Then '如果提交了订单明细数据

……各种原来的各种赋值保存操作

e.WriteString("OK") ‘保存正常要返回OK，tst2才能正常弹出

else

e.WriteString("提交的数据不完整！")

end if

dengk03

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：童狐帖子：205 积分：1969 威望：0 精华：0 注册：2017/8/17 12:59:00

Post By：2020/2/8 22:52:00 [只看该作者]

这个url的写法我是照抄例子里来的，例子里给的就是edit。

其实我现在也比较晕，不太清楚是如何从prodedit转到prodsave的。。。只是发现按照例子的写法，是可以正确提交表单的，只是显示上传失败而已。

增加订单

我们已经知道，当用户在list.htm中，单击"增加订单"按钮，会向服务器发送访问请求：
edit.htm?page=2
服务端收到这个访问请求后，触发HttpRequest事件，将请求转给Edit函数处理。

以下是edit函数的处理流程：

第11行到第13行代码，从GetValues集合中提取page参数，保存在变量page中，page变量的值等于2。
由于没有传递oid参数，第14行代码的条件成立，执行第15行到第17行代码。
第15行代码新增一个订单。
第16行代码利用自定义函数GetOrderID为新订单生成订单编号。
第17行代码将订单日期设置为当天日期。

假定新增订单编号为161203006，第27行代码合成了一个链接，保存在url中，内容为：
edit.htm?page=2&oid=161203006
第28行代码新增一个表单，数据接收链接为url，即：edit.htm?page=2&oid=161203006。
第29到第46行代码，生成了订单输入框。
由于第36行代码的条件不成立，不会生成总数量和总金额输入框。

下一主题 >> << 上一主题

总数 11 1 2 下一页

主题：uploader浏览已录入的照片