Foxtable(狐表)用户栏目专家坐堂 → [求助]循环WEUI


  共有2053人关注过本帖树形打印复制链接

主题:[求助]循环WEUI

美女呀,离线,留言给我吧!
OKK
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:407 积分:4268 威望:0 精华:0 注册:2016/11/22 19:30:00
[求助]循环WEUI  发帖心情 Post By:2020/5/1 13:27:00 [只看该作者]

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
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:162 积分:1083 威望:0 精华:0 注册:2020/1/16 11:58:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:407 积分:4268 威望:0 精华:0 注册:2016/11/22 19:30:00
  发帖心情 Post By:2020/5/1 16:48:00 [只看该作者]

好,谢谢了

 回到顶部