| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 帮忙解决行的问题？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=57320) |
| -- 作者：hjcslr -- 发布时间：2014/9/23 0:08:00 -- 帮忙解决行的问题？ Dim p1 As Row = Tables("科管_科室通知").Rows(Tables("科管_科室通知").Rows.Count - 1) \'获得最后一行 Dim p2 As Row =Tables("科管_科室通知").Rows(Tables("科管_科室通知").Rows.Count -2) \'获得最后一行 \'Dim p3 As Row= Tables("科管_科室通知").Rows(Tables("科管_科室通知").Rows.Count - 3) \'获得最后一行 \'Dim p4 As Row= Tables("科管_科室通知").Rows(Tables("科管_科室通知").Rows.Count - 4) \'获得最后一行 \'Dim p5 As Row = Tables("科管_科室通知").Rows(Tables("科管_科室通知").Rows.Count - 5) \'获得最后一行 \'Dim p6 As Row= Tables("科管_科室通知").Rows(Tables("科管_科室通知").Rows.Count - 6) \'获得最后一行 \'Dim p7 As Row= Tables("科管_科室通知").Rows(Tables("科管_科室通知").Rows.Count - 7) \'获得最后一行 \'Dim p8 As Row= Tables("科管_科室通知").Rows(Tables("科管_科室通知").Rows.Count - 8) \'获得最后一行 e.Form.Controls("Label1").text = p1("主题") e.Form.Controls("Label2").text = p2("主题") \'e.Form.Controls("Label3").text = p3("主题") \'e.Form.Controls("Label4").text = p4("主题") \'e.Form.Controls("Label5").text = p5("主题") \'e.Form.Controls("Label6").text = p6("主题") \'e.Form.Controls("Label7").text = p7("主题") \'e.Form.Controls("Label8").text = p8("主题") 这个执行不正确
[此贴子已经被作者于2014-9-23 0:08:33编辑过]
|
| -- 作者：Bin -- 发布时间：2014/9/23 8:31:00 -- 你想实现什么? 执行提示什么错误? |
| -- 作者：有点甜 -- 发布时间：2014/9/23 9:12:00 -- 如果数据的总行数少于2行，肯定会报错 |
| -- 作者：hjcslr -- 发布时间：2014/9/24 11:13:00 -- 想窗口LABLE显示8行数据 |
| -- 作者：有点甜 -- 发布时间：2014/9/24 11:14:00 -- 以下是引用hjcslr在2014-9-24 11:13:00的发言：
想窗口LABLE显示8行数据
那现在是执行出错还是怎样？ |
| -- 作者：hjcslr -- 发布时间：2014/9/24 13:00:00 -- 还是提示出错 |
| -- 作者：hjcslr -- 发布时间：2014/9/24 13:16:00 -- Index -1 is either negative or above rows count. |
| -- 作者：czy -- 发布时间：2014/9/24 13:44:00 -- Dim n As Integer = Tables("科管_科室通知").Rows.Count If n >= 8 For i As Integer = n-8 To n -1 e.Form.Controls("Label" & n-i).text = Tables("科管_科室通知").Rows(i)("主题") Next Else For i As Integer = 0 To n -1 e.Form.Controls("Label" & n-i).text = Tables("科管_科室通知").Rows(i)("主题") Next End If |
| -- 作者：hjcslr -- 发布时间：2014/9/24 20:42:00 -- 谢谢了，搞定 |