主题：已添加了具有相同键的项(httpserver)

这是 filter.htm页面

For Each kh As String In dr("khlist").Split("|")
    '插入一些隐藏段落,用于存储各个国家的汽车品牌
    Dim fdr As DataRow =DataTables("档案").Find("名称='" & kh & "'")
    If fdr IsNot Nothing Then
        wb.InsertHTML("<p hidden id='" & kh & "'>" & fdr("编码") & "</p>")
    End If
Next
wb.AppendHTML("<script src='./lib/Wkh.js'></script>") '引入脚本文件

 

按动态列表项目之二的例子，在主页与filter.htm，来回切换进入filter.htm出现已添加了具有相同键的项

 

要怎么解决了..

应该是你指定的id重复了。如果重复就会报这个错的。

就在这段里啊，怎么判断重复ID，到这里 wb.InsertHTML("<p hidden id='" & kh & "'>" & fdr("编码") & "</p>")执行了一段时间才出现的每次位置都不一样

要如何判断ID

测试了一下，不是你这段代码的问题。

 

你页面里面添加的控件，赋值id的时候，不能重复，重复就报错，如

 

 Dim wb As New weui
 wb.AddForm("","form1","test.htm")

 wb.AddForm("","form1","abc.htm")

Case "f18.htm"
    Dim dr As DataRow = UserTable.Find("UserName = '" & UserName & "'")
    If dr IsNot Nothing AndAlso dr("UserID") = UserID Then  '如果通过验证,更新活动时候,继续访问其它页面.
        wb.AddForm("","form18","p18.htm")
        With wb.AddInputGroup("form18","ipg18","数据筛选(默认日期区间为本月内数据)")
            .AddSelect("公司18","公司",dr("gslist"))
            .AddSelect("名称18","名称","|" & dr("khlist")).Attribute = ""
            .AddSelect("编码18","编码","")
            .AddInput("开始日期18","开始日期","date").Value = new Date(Date.Today().Year,Date.Today().Month,1)
            .AddInput("截止日期18","截止日期","date").Value = Date.Today()
        End With
       
        With wb.AddButtonGroup("form18","btg18",False)
            .Add("btn181", "主页", "submit","default.htm")
            .Add("btn182", "最近交易", "submit").FormAction = "p181.htm"
            .Add("btn183", "确定", "submit")
        End With
        For Each kh As String In dr("khlist").Split("|")
            '插入一些隐藏段落,用于存储各个国家的汽车品牌
            Dim fdr As DataRow =DataTables("档案").Find("名称='" & kh & "'")
            If fdr IsNot Nothing Then
                wb.InsertHTML("<p hidden id='" & kh & "'>" & fdr("编码") & "</p>")  执行到这个位置会出现的报错
            End If
        Next
        wb.AppendHTML("<script src='./lib/Wkh.js'></script>") '引入脚本文件
    End If

 

 

每个页面的控件都有用数据区分了...

   

wb.InsertHTML("<p hidden id='" & kh & "'>" & fdr("编码") & "</p>")  执行到这个位置会出现的报错

你贴出的代码，没，问，题。请做一个例子发上来测试。