以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  错误提示已添加了具有相同键的项  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=170912)
--  作者：sunion
--  发布时间：2021/8/11 10:47:00
--  错误提示已添加了具有相同键的项
出现了已添加了具有相同键的项，是哪里错了吗？

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
[此贴子已经被作者于2021/8/11 10:48:23编辑过]
--  作者：有点蓝
--  发布时间：2021/8/11 10:59:00
--  
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) \'生成网页