Foxtable(狐表)用户栏目专家坐堂 → 循环代码问题


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

主题:循环代码问题

帅哥哟,离线,有人找我吗?
benwong2015
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:112 积分:1444 威望:0 精华:0 注册:2018/7/4 8:21:00
循环代码问题  发帖心情 Post By:2021/9/17 10:03:00 [只看该作者]


以下红色的代码部分,如果select有多个的话,只循环到第一个之后就不再执行,请问是什么问题
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:代码.txt

                    
                    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
 
[此贴子已经被作者于2021/9/17 10:03:10编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/17 10:57:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
benwong2015
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:112 积分:1444 威望:0 精华:0 注册:2018/7/4 8:21:00
  发帖心情 Post By:2021/9/17 11:19:00 [只看该作者]

 MessageBox.show(wls.count) 能正常显示wls的数量;

MessageBox.show(wl("物料编号")) 只显示第一个物料的料号,接下来其他的料号不再显示,界面也是显示空白;

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/17 11:51:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
benwong2015
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:112 积分:1444 威望:0 精华:0 注册:2018/7/4 8:21:00
  发帖心情 Post By:2021/9/17 12:10:00 [只看该作者]

 如果屏蔽了错误,检查一下日志  在哪里检查


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/17 12:26:00 [只看该作者]

                    For Each wl As DataRow In wls
                        i = i + 1
MessageBox.show(wl("物料编号"))
                        With wb.AddInputGroup("form1","ipg" & i,wl("物料编号"))
MessageBox.show(i)
                            For c As Integer = 0 To nms.length -1
MessageBox.show(nms(c) )
                                With .AddInput(nms(c) & i,nms(c) & ":","text")
MessageBox.show(wl(nms(c)))
                                    .Value = wl(nms(c))
                                    .Readonly= True
                                End With
                            Next
                        End With
                    Next

 回到顶部
帅哥哟,离线,有人找我吗?
benwong2015
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:112 积分:1444 威望:0 精华:0 注册:2018/7/4 8:21:00
  发帖心情 Post By:2021/9/17 13:38:00 [只看该作者]

只能第一个物料的所有信息遍历一次,就没有了


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/9/17 13:46:00 [只看该作者]

关闭退出项目,删除项目所在的文件夹里的bin目录,然后重启项目试试。

还不行请上传实例测试

 回到顶部