Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Select Case e.Path
Case "yanfacpdata"
If e.PostValues.Count = 0 Then
wb.AddForm("", "form1", "yanfacpdata")
With wb.AddInputGroup("form1", "ipg1", "增加员工")
.AddUploader("up1", "照片", True) 'True表示允许上传多个文件
End With
With wb.AddButtonGroup("form1", "btg1", True)
.Add("btn1", "确定", "submit")
End With
MessageBox.show(1)
' e.WriteString(wb.Build)
Else
MessageBox.show(2)
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
End If
Next
'保存并生成增加成功提示页面
With wb.AddMsgPage("", "msgpage", "增加成功", "好好学习,天天向上") '生成成功提示页
.AddButton("btn1", "继续增加", "yanfacpdata")
End With
End If
e.WriteString(wb.Build)
End Select
加好友 
发短信
Post By：2024/1/14 23:17:00 [只看该作者]
