Dim wb As New weui
Select Case e.Path
Case "diary.htm"
Dim db As List(of DataRow) = DataTables(“员工”").SQLSelect("",3,"时间 desc ")
wb.AddForm("","form1","diary.htm")
Dim tb As Table = Tables("员工")
For i As Integer = 0 To 3
With wb.AddInputGroup("form1","ipg1" & i & "","资料")
With .AddUploader("up1" & i & "","",True)
For Each dr1 As DataRow In db
For Each s As String In dr1.lines("照片")
.AllowAdd = False
.AddImage("./images/""'"& tb(i)("照片") & "'")
Next
Next
Next
End With
End With
e.WriteString(wb.Build) '生成网页
End Select
加好友 
发短信
Post By：2021/8/11 10:47:00 [显示全部帖子]
