Foxtable(狐表)用户栏目专家坐堂 → 循环语句出错求助


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

主题:循环语句出错求助

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


加好友 发短信
等级:六尾狐 帖子:1368 积分:12189 威望:0 精华:0 注册:2012/3/5 11:32:00
循环语句出错求助  发帖心情 Post By:2013/6/11 13:12:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目6.table

请看附件,

 

 

我在生成 内容的时候   

 

Dim dt As DataTable = DataTables("表A")
For i As Integer = 0 To 13
e.Form.Controls("BarCode" & i+1).code = dt.DataRows(i)("条码值") & " " & dt.DataRows(i)("收容数")
e.Form.Controls("label" & i+1).text = "品番:" & dt.DataRows(i)("品番")
e.Form.Controls("labelA" & i+1).text = "收容数:" &  dt.DataRows(i)("收容数")
Next

 

第11  至 14 项 内容出错

 

还有 问下  这样生成的窗口 能否直接进行打印  ?.

直接追加

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()

 

页面空荡荡!

[此贴子已经被作者于2013-6-11 13:29:31编辑过]

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


加好友 发短信
等级:版主 帖子:5246 积分:33163 威望:0 精华:8 注册:2013/1/17 21:28:00
  发帖心情 Post By:2013/6/11 14:34:00 [只看该作者]

Dim t As Table = Tables("表A")
For i As Integer = 0 To 13
    e.Form.Controls("BarCode" & i +1).code = t.Rows(i)("条码值") & " " & t.Rows(i)("收容数")
    e.Form.Controls("label" & i +1).text = "品番:" & t.Rows(i)("品番")
    e.Form.Controls("labelA" & i +1).text = "收容数:" &  t.Rows(i)("收容数")
Next

 

 

你可能有插入行或删除行或移动行的操作,行号对不上了。按Table而不是DataTable操作就不会出错。

好多狐友,按电子表格的老习惯,对行列的插入、删除、移动,很随意,到用代码判断的时候,错都不知道出在哪。


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


加好友 发短信
等级:六尾狐 帖子:1368 积分:12189 威望:0 精华:0 注册:2012/3/5 11:32:00
  发帖心情 Post By:2013/6/11 14:45:00 [只看该作者]

哦 , 谢谢   原来是这样!

 

那 打印哪里能否?


 回到顶部