以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  帮忙解决行的问题?  (http://foxtable.com/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
--  
谢谢了,搞定