主题："已添加了具有相同键的项"错误

比如，这种情况，会报错，添加的图片名称重复的时候，就会报错。

Select Case e.Path
    Case "test.htm", ""
        Dim wb As New weui
        wb.AddForm("","form1","test.htm")
        With wb.AddInputGroup("form1","ipg1","客户资料")
            .AddInput("姓名","姓名","text").value = "舒淇"
            .AddInput("地点","地点","text").Value = "蒙古草原"
            .AddInput("日期","日期","date").value = #10/12/2012#
            With .AddUploader("up1","",True)
                .AllowAdd = False '关闭文件上传功能
                .AddImage("./images/001.jpg")
                .AddImage("./images/001.jpg")
                .AddImage("./images/001.jpg")
                .AddImage("./images/001.jpg")
                .AddImage("./images/001.jpg")
                .AddImage("./images/001.jpg")
                .AddImage("./images/001.jpg")
                .AddImage("./images/001.jpg")
                .AddImage("./images/001.jpg")
            End With
        End With
        e.WriteString(wb.Build) '生成网页
End Select

先确定是否这个问题，加入红色代码，看弹出什么后报错，弹出的文字是否重复。

            For Each drs As DataRow In DataTables("灭火器检查表").Select("编号 = '" & sbid & "'","检查日期 Desc")

msgbox("./Attachments/" & drs("指针图片"))
                .AddImage("./Attachments/" & drs("指针图片"),"./Attachments/" & drs("指针图片"))
            Next