主题：循环代码问题

                    
                    Dim wls As List(Of DataRow)
                    wls = DataTables("C_LYSQList").SQLSelect("领用单号 = '"& qgr("领用单号") &"'")
MessageBox.show(wls.count)
                    Dim i As Integer = 2
                    Dim nms() As String = {"物料名称","品牌","规格","等级","物品序号","申请数量","单位","平均单价","小计","用途","请购原由"}
                    For Each wl As DataRow In wls
                        i = i + 1
MessageBox.show(wl("物料编号"))
                        With wb.AddInputGroup("form1","ipg" & i,wl("物料编号"))
                            For c As Integer = 0 To nms.length -1
                                With .AddInput(nms(c) & i,nms(c) & ":","text")
                                    .Value = wl(nms(c))
                                    .Readonly= True
                                End With
                            Next
                        End With
                    Next
                    With wb.AddRadioGroup("form1","审批意见","审批意见")
                        .Add("同意","同意")
                        .Add("不同意","不同意")
                    End With
                    With wb.AddButtonGroup("form1","btg1",True)
                        .Add("btn1", "提交", "submit")
                        .Add("btn2", "返回清单","","llsp.htm")
                    End With
                    e.WriteString(wb.Build)
                Else