以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]相同的键  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=152631)

--  作者:OKK
--  发布时间:2020/7/16 19:16:00
--  [求助]相同的键
Dim e As RequestEventArgs = args(0) 
Dim wb As New WeUI
       wb.AddForm("","form1","")
        For i As Integer = 1 To 100
            wb.InsertHTML("form1","<div class=\'weui_cells weui_cells_form\' " & "id=\'ipr" & i & "\' name=\'ipr" & i & "\'>")
            wb.InsertHTML("form1","<div class=\'weui_cell\'>")
            wb.InsertHTML("form1","<div class=\'weui_cell_bd weui_cell_primary\'>")
            wb.InsertHTML("form1","</div>")
            wb.InsertHTML("form1","</div>")
            wb.InsertHTML("form1","<div class=\'fox_group\'>")
            wb.InsertHTML("form1","<div class=\'weui_cells weui_cells_form\' " & "id=\'ipg" & i & "\' name=\'ipg" & i & "\'>")
            wb.InsertHTML("form1","<div class=\'weui_cell\'>")
            wb.InsertHTML("form1","<div class=\'weui_cell_bd weui_cell_primary\'>")
            wb.InsertHTML("form1","</div>")
            wb.InsertHTML("form1","</div>")
            wb.InsertHTML("form1","</div>")
            wb.InsertHTML("form1","</div>")

        With wb.AddButtonGroup("form1","bbtg1" & i,True)
            .Add("bbtn1", "确定", "submit")
        End With
        Next
e.WriteString(wb.Build)






图片点击可在新窗口打开查看此主题相关图片如下:1594898061(1).png
图片点击可在新窗口打开查看











以上代码,偶尔会在打开网页或刷新后,出现错误提示:“已有相同的键”

有时会在一打开网页时发生,有时会在连续刷新几十次后才发生,因为是偶尔发生,所以很难在测试时找出问题。


请问以上代码哪里有问题,怎么改?

--  作者:有点蓝
--  发布时间:2020/7/16 20:13:00
--  
foxtable更新到最新版本
--  作者:OKK
--  发布时间:2020/7/17 16:22:00
--  
还有没有其它办法
--  作者:有点蓝
--  发布时间:2020/7/17 16:52:00
--  
如果是碰到bug,没有其它办法
--  作者:OKK
--  发布时间:2020/7/17 23:44:00
--  
好的,谢谢