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
以上代码,偶尔会在打开网页或刷新后,出现错误提示:“已有相同的键”
有时会在一打开网页时发生,有时会在连续刷新几十次后才发生,因为是偶尔发生,所以很难在测试时找出问题。
请问以上代码哪里有问题,怎么改?