以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]循环WEUI  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=149432)
--  作者：OKK
--  发布时间：2020/5/1 13:27:00
--  [求助]循环WEUI
dim i as integer = e.cookies(usrname)
Dim wb As New WeUI
if i >= 1 then
        With wb.AddInputGroup("form1","ipg1")
            .AddInput("xm1","户名","text")
        End With
end if
if i >= 2 then
        With wb.AddInputGroup("form1","ipg2")
            .AddInput("xm2","户名","text")
        End With
end if
if i >= 3 then
        With wb.AddInputGroup("form1","ipg3")
            .AddInput("xm3","户名","text")
        End With
end if
if i >= 4 then
        With wb.AddInputGroup("form1","ipg4")
            .AddInput("xm4","户名","text")
        End With
end if
if i >= 5 then
        With wb.AddInputGroup("form1","ipg5")
            .AddInput("xm5","户名","text")
        End With
end if
e.WriteString(wb.Build)





以上代码，当i的值很大，比如是100000的时候，那么，下面的代码就要写很多
请问能不能使用循环的方式写出以上代码，怎么写？
--  作者：linyunu1
--  发布时间：2020/5/1 15:43:00
--  
虽然不知道你这样设的意义何在，但是代码给你
dim i as integer = e.cookies(usrname)
Dim wb As New WeUI
        With wb.AddInputGroup("form1","ipg" & i)
            .AddInput("xm" & i,"户名","text")
        End With
e.WriteString(wb.Build)
--  作者：OKK
--  发布时间：2020/5/1 16:48:00
--  
好，谢谢了