Dim tb As Table = Tables("员工")
Dim dr1 As DataRow
For i As Integer = 0 To db.count - 1
dr1 = dn(i)
With wb.AddInputGroup("form1","ipg1" & i & "","资料")
With .AddUploader("up1" & i & "","",True)
.AllowAdd = False
For Each s As String In dr1.lines("照片")
.AddImage("./images/" & s)
Next
End With
End With
Next
e.WriteString(wb.Build) '生成网页