主题：循环代码问题

                    
                    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
 

提示什么错误？MessageBox弹出什么内容？

说明MessageBox.show(wl("物料编号")) 后面的代码出错了，如果屏蔽了错误，检查一下日志

                    For Each wl As DataRow In wls
                        i = i + 1
MessageBox.show(wl("物料编号"))
                        With wb.AddInputGroup("form1","ipg" & i,wl("物料编号"))