表没有加载字段照片、crc值 两个字段属于二进制字段
1、录入页面,选择图片后上传,如何根据字段“照片名”生成字段“crc值”?
Dim val As String = CRCCheckFile(dr("照片名"))
dr.SQLSetValue("CRC值",val)
这个代码没有起作用
2、录入成功之后,如何获取录入成功后的页面内容,将当前录入保存成功的页面值进行显示?
3、允许上传多个文件,经过实际测试,只能上传一张图片,请问红色部分代码有什么办法修正么?且照片一旦选择,为什么不能移除呢?
页面代码如下:
Dim wb As New weui
Select Case e.Path
Case "xjrjzjf.htm"
If e.PostValues.Count = 0 Then
wb.AddPageTitle("","ph1","博融现金日记账")
wb.AddForm("","form1","xjrjzjf.htm")
With wb.AddInputGroup("form1","ipg1","现金日记账【收入记账】")
.AddInput("日期","日期","date")
.AddSelect("凭证种类","凭证种类","|fa piao|收据|收条|小piao|物流单|快递单|其它单据")
.AddInput("凭证号数","凭证号数","Text")
.AddSelect("对方科目","科目类别","|日常办公|销售回款|日常开支|货物订货|其它项目")
.AddInput("摘要","内容摘要","Text")
With .AddInput("借方金额","收入金额","number")
.Step = "0.01"
.Attribute = ""
End With
.AddSelect("借方","收入人员","|肖妍|费泓纶|田景兰")
.AddUploader("up1","照片",True) 'True表示允许上传多个文件
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
End With
e.WriteString(wb.Build)
Else
Dim nms() As String = {"日期","凭证种类","凭证号数","摘要","科目类别","日页","借方金额","借方","照片名","crc值"} '
Dim dr As DataRow = DataTables("现金日记账").AddNew()
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr(nm) = e.PostValues(nm)
End If
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, ProjectPath & "Attachments\" & fln)
Next
dr.Lines("照片名") = e.Files(key)
End If
Next
dr.save()
Dim val As String = CRCCheckFile(dr("照片名"))
dr.SQLSetValue("CRC值",val)
With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页
.AddButton("btn1","继续增加","xjrjzjf.htm")
End With
e.WriteString(wb.Build)
End If
End Select
[此贴子已经被作者于2019/10/8 0:12:50编辑过]