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

经测试，下面这段代码在网络信号很差的情况下，用手机打开这个页面的过程中，服务器就会跳出"已添加了具有相同键的项"错误，在信号好时，不会出错，帮忙看下有什么问题

Case "aqsbjcxx.htm"
    Dim sbid As String
    If e.GetValues.ContainsKey("sbid")
        sbid = e.GetValues("sbid")
    End If
   
    Dim dr As DataRow
    If sbid.Contains("MHQ")
        dr = DataTables("灭火器表").SQLFind("编码 = '" & sbid & "'")
    Else If sbid.Contains("FDMZ")
        dr = DataTables("防毒面罩表").SQLFind("编码 = '" & sbid & "'")
    Else
        dr = DataTables("其他设备表").SQLFind("编码 = '" & sbid & "'")
    End If
   
    If dr IsNot Nothing Then
        wb.AddForm("","formaqsb","aqsbjcxx.htm")'
        With wb.AddInputGroup("formaqsb","ipg1","设备信息")
            With .AddInput("bianm","编码:","text")
                .Readonly = True
                .value = dr("编码")
            End With
            With .AddInput("mingc","名称:","text")
                .Readonly = True
                If sbid.Contains("MHQ")
                    .Value = dr("名称")
                Else If sbid.Contains("FDMZ")
                    .Value = dr("设备名称")
                Else
                    .Value = dr("设备名称")
                End If
               
               
            End With
            With .AddInput("xingh","型号:","text")
                .Readonly = True
                .Value = dr("型号")
            End With
            With .AddInput("did","地点:","text")
                .Readonly = True
                .Value = dr("放置地点")
            End With
            With .AddInput("guanly","管理员:","text")
                .Readonly =True
                If sbid.Contains("MHQ")
                .Value = dr("管理员")
                Else If sbid.Contains("FDMZ")
                .Value = dr("责任人")
                Else
                .Value = dr("责任人")
                End If

            End With
        End With
       
        With wb.AddTable("formaqsb","检查信息")
            .CreateFromDataTable(DataTables("灭火器检查表"),False,"编号 = '" & sbid & "'","检查日期 desc","检查日期","检查结果","检查人","备注")
        End With
    Else
        With wb.AddMsgPage("","msgpage1","设备已下架", "") '生成成功提示页
        End With
    End If
   
    With wb.AddInputGroup("formaqsb","ipg2","图片信息")
        With .AddUploader("up11","",True)
            .AllowAdd = False '关闭文件上传功能
            'AddImage的第一个参数为缩略图,第二个参数为原图
            'Dim drs1 As DataRow = DataTables("灭火器检查表") .Find("编号 = '" & sbid & "'","检查日期 Desc")
            For Each drs As DataRow In DataTables("灭火器检查表").Select("编号 = '" & sbid & "'","检查日期 Desc")
                .AddImage("./Attachments/" & drs("指针图片"),"./Attachments/" & drs("指针图片"))
            Next
        End With
    End With
    e.WriteString(wb.Build)

那怎么改可以解决这个问题呢？我这个是挂在局域网上的，在 wifi信号差的地方就会出错。