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
以上代码，偶尔会在打开网页或刷新后，出现错误提示：“已有相同的键”
有时会在一打开网页时发生，有时会在连续刷新几十次后才发生，因为是偶尔发生，所以很难在测试时找出问题。
请问以上代码哪里有问题，怎么改？
加好友 
发短信
Post By：2020/7/16 19:16:00 [只看该作者]
