Foxtable(狐表)用户栏目专家坐堂 → 错误提示已添加了具有相同键的项


  共有4043人关注过本帖树形打印复制链接

主题:错误提示已添加了具有相同键的项

帅哥哟,离线,有人找我吗?
sunion
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:241 积分:2569 威望:0 精华:0 注册:2018/1/11 14:52:00
错误提示已添加了具有相同键的项  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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) '生成网页

 回到顶部