求助：关于.Incremental = True后，dr.Lines("照片")不能保存 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

[此贴子已经被作者于2018/7/2 19:33:29编辑过]

加上.Incremental = True后，dr("照片")字段是空的，保存不上。如果拍一张照片，能存上，多张时，这个字段就是空的，没有照片文件名。

[此贴子已经被作者于2018/7/2 18:04:52编辑过]

[此贴子已经被作者于2018/7/2 19:00:52编辑过]

设置 Incremental 以后，必须用ajax提交表单submitAjaxForm

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

提交了，但是只有一次是可以的，之后又不能了，

foxtable代码

Select Case e.Path

Case "gdkh.htm" '工段考核

wb.AddForm("","form1","gdkh.htm")

If e.PostValues.Count=0 Then

'**//输入框组2

With wb.AddInputGroup("form1","ipg2","事件描述")

.AddTextArea("事件描述",4).Placeholder = "请输入200字以内的备注"

With .AddUploader("up128","照片",True)

.AllowDelete = True '允许删除

.Incremental = True '允许重复选择文件或连续拍照,加上本句后,图片名不能保存于【照片】字段中

End With

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

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

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

'**//按扭分组1

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

.Add("btn11", "提交","submit").Attribute= "" '调用js函数上传submitForm()

.Add("btn12", "查看当日考核","","khcx.htm") '考核查旬(khcx,首字母)

End With

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

e.WriteString(wb.Build)

else

For Each key As String In e.Files.keys

If key = "up128" Then

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

e.SaveFile(key, fln,"D:\web\images\gdkh\" & fln)

dr.Lines("照片") = e.Files(key)

End If

'保存并生成增加成功提示页面

dr.save()

e.WriteString(wb.Build)

end if

end select

js代码如下：

function submitForm(){

show("tst1",2000);

var result = submitAjaxForm('form1','afterSubmit');

}

function afterSubmit(result){

hide("tst1");

if (result=='OK') {

show("tst2");

location="gdkh.htm";

}

else{

show("tst3",2000);

}

如上，只有一次可以，之后再试，就是不能保存

[此贴子已经被作者于2018/7/2 19:33:06编辑过]

参考：http://www.foxtable.com/mobilehelp/scr/0060.htm

要提供一个按钮返回上传页

With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页

.AddButton("btn1","继续增加","addnew.htm")

End With

我重新做了一个例子，也不能在数据表中记录图片，也不能保存到硬盘上，本例不加.Incremental=True，数据表及硬盘上均能正常，加上就不正常了，例子如下

foxtable中httpserver中

Dim fl As String = "d:\web\" & e.path

If filesys.FileExists(fl)

Dim idx As Integer = fl.LastIndexOf(".")

Dim ext As String = fl.SubString(idx)

Select Case ext

Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"

e.WriteFile(fl)

Return '这里必须返回

End Select

End If

Dim wb As New weui

Select Case e.Path

Case "addnew.htm"

If e.PostValues.Count = 0 Then

wb.AddForm("","form1","addnew.htm")

With wb.AddInputGroup("form1","ipg1","增加员工")

.AddInput("姓名","姓名","Text") '前一个"姓名"是ID,后一个"姓名"是标题

.AddInput("年龄","年龄","number")

.AddSelect("学历","学历","大专|本科|硕士|博士")

With .AddUploader("up1","照片",True) 'True表示允许上传多个文件

.Incremental=True

End With

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

.Add("btn1", "确定", "submit").Attribute=""

End With

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

e.WriteString(wb.Build)

Else

Dim nms() As String = {"姓名","年龄","学历"}

Dim dr As DataRow = DataTables("员工").AddNew()

For Each nm As String In nms

dr(nm) = e.PostValues(nm)

For Each key As String In e.Files.Keys

If key = "up1" Then

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

e.SaveFile(key, fln, "d:\web\images\gdkh\" & fln)

dr.Lines("照片") = e.Files(key)

End If

'保存并生成增加成功提示页面

dr.save()

With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页

.AddButton("btn1","继续增加","addnew.htm")

End With

e.WriteString(wb.Build)

End If

End Select

js 内容

function submitForm(){

// show("tst1",2000);

var result = submitAjaxForm('form1','afterSubmit');

}

function afterSubmit(result){

// hide("tst1");

// if (result=='OK') {

// show("tst2");

location="addnew.htm";

// }

// else{

// show("tst3",2000);

// }

}

[此贴子已经被作者于2018/7/2 20:34:33编辑过]

本例中.Add("btn1", "确定", "submit").Attribute=""，为什么在本论坛上，Attribute=后不能显示呢，它=后应=""

[此贴子已经被作者于2018/7/2 20:37:29编辑过]

我感觉这是foxtable的一个bug,我把这两个例子综合在一起了，一直没能做出来多选或拍摄多张照片来。

主题：求助：关于.Incremental = True后，dr.Lines("照片")不能保存