主题：请教：查询页面，频繁报错：已添加了具有相同键的项

页面生成后，点击查询按钮，偶尔提示：已添加了具有相同键的项

添加的与主键有关的内容如蓝色代码所示，AddContent是不需要设置主键的，所以没找到有重复的键的项，问题到底出在哪里呢？

Dim cmd As new SQLCommand

cmd.C

cmd.CommandText = str

Dim dt As DataTable

dt = cmd.ExecuteReader

With wb.AddTabBar("", "tb1", 0)

    .AddPage("page1","列表项","./images/button.png")

    .AddPage("page2","表格","./images/msg.png")

End With

With wb.AddTable("page2","Table1")

    .CreateFromDataTable(dt)

End With

With wb.AddArticle("page1","ar1")

    For i As Integer = 0 To dt.datarows.count - 1

        Dim dr As DataRow = dt.datarows(i)

        .AddContent("<br/><b>合同编号:</b> " & dr("合同编号"))

        .AddContent("<b>合同名称:</b> " & dr("合同名称"))

            For Each dc As DataCol In dt.datacols

                If dc.name <> "合同编号" And dc.name <> "合同名称" Then

                    .AddContent("<b>" & dc.name & ": </b>" & dr(dc.name))

                End If

            Next

        .AddContent("<a href='./ContractsInfo/" & dr("合同编号") & ".pdf'>单击此处</a>下载pdf文档(5M)")

        .AddContent("- - - - - - - - - 第" & i+1 & "条/共" & dt.datarows.count & "条 - - - - - - - - -")

    Next

End With

wb.AppendHTML("<style>Table.fox_table {text-align: center}</style>")

e.WriteString(wb.Build) '生成网页

已升级到最新版，报错更频繁了，使用弹框反复测试，能弹出“a”，之后报错，所以问题出在蓝色代码段，但AddContent不需要设置主键，到底哪个主键重复了？

修改上述代码，弃用AddArticle组件，直接采用InsertHTML方式逐行生成，结果还是报错，“已添加具有相同的主键”

怀疑跟 dt 的记录数有关，几十条记录的时候没大有问题，上百条的时候，报错就比较多了。上了200多都不用测试，次次报错。