以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：关于.Incremental = True后，dr.Lines("照片")不能保存  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=121254)
--  作者：goe12345
--  发布时间：2018/7/2 17:44:00
--  求助：关于.Incremental = True后，dr.Lines("照片")不能保存

[此贴子已经被作者于2018/7/2 19:33:29编辑过]
--  作者：goe12345
--  发布时间：2018/7/2 17:45:00
--  加上.Incremental = True后，dr("照片")字段是空的，保存不上
加上.Incremental = True后，dr("照片")字段是空的，保存不上。如果拍一张照片，能存上，多张时，这个字段就是空的，没有照片文件名。
[此贴子已经被作者于2018/7/2 18:04:52编辑过]
--  作者：goe12345
--  发布时间：2018/7/2 18:36:00
--  1
1
[此贴子已经被作者于2018/7/2 19:00:52编辑过]
--  作者：有点甜
--  发布时间：2018/7/2 18:37:00
--  

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

 

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

 

 
--  作者：goe12345
--  发布时间：2018/7/2 19:08:00
--  提交了，但是只有一次是可以的，之后又不能了
提交了，但是只有一次是可以的，之后又不能了，
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
            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)
                    Next
                    dr.Lines("照片") = e.Files(key)
                End If
            Next
            \'保存并生成增加成功提示页面
            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编辑过]
--  作者：有点蓝
--  发布时间：2018/7/2 20:10:00
--  
参考：http://www.foxtable.com/mobilehelp/scr/0060.htm

要提供一个按钮返回上传页
With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") \'生成成功提示页
    .AddButton("btn1","继续增加","addnew.htm")
End With
--  作者：goe12345
--  发布时间：2018/7/2 20:33:00
--  我重新做了一个例子，也不能在数据表中记录图片
我重新做了一个例子，也不能在数据表中记录图片，也不能保存到硬盘上，本例不加.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
            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)
            Next
            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)
                    Next
                    dr.Lines("照片") = e.Files(key)
                End If
            Next
            \'保存并生成增加成功提示页面
            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编辑过]
--  作者：goe12345
--  发布时间：2018/7/2 20:36:00
--  
本例中.Add("btn1", "确定", "submit").Attribute=""，为什么在本论坛上，Attribute=后不能显示呢，它=后应=""

[此贴子已经被作者于2018/7/2 20:37:29编辑过]
--  作者：有点蓝
--  发布时间：2018/7/2 20:42:00
--  
按照这种方式使用：http://www.foxtable.com/mobilehelp/scr/0251.htm
--  作者：goe12345
--  发布时间：2018/7/2 20:43:00
--  
我感觉这是foxtable的一个bug,我把这两个例子综合在一起了，一直没能做出来多选或拍摄多张照片来。