Foxtable(狐表) → 用户栏目 → 专家坐堂 → 帮忙解决行的问题？


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

主题：帮忙解决行的问题？
帅哥哟，离线，有人找我吗？
hjcslr
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：334 积分：2370 威望：0 精华：0 注册：2014/3/15 16:25:00 		帮忙解决行的问题？  发帖心情 Post By：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178530 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/9/23 8:31:00 [只看该作者]

你想实现什么?  执行提示什么错误?

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/23 9:12:00 [只看该作者]

 如果数据的总行数少于2行，肯定会报错

 回到顶部
帅哥哟，离线，有人找我吗？
hjcslr
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：334 积分：2370 威望：0 精华：0 注册：2014/3/15 16:25:00 		  发帖心情 Post By：2014/9/24 11:13:00 [只看该作者]

想窗口LABLE显示8行数据

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/24 11:14:00 [只看该作者]

以下是引用hjcslr在2014-9-24 11:13:00的发言：
想窗口LABLE显示8行数据

 

那现在是执行出错还是怎样？
 回到顶部
帅哥哟，离线，有人找我吗？
hjcslr
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：334 积分：2370 威望：0 精华：0 注册：2014/3/15 16:25:00 		  发帖心情 Post By：2014/9/24 13:00:00 [只看该作者]

还是提示出错

 回到顶部
帅哥哟，离线，有人找我吗？
hjcslr
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：334 积分：2370 威望：0 精华：0 注册：2014/3/15 16:25:00 		  发帖心情 Post By：2014/9/24 13:16:00 [只看该作者]

Index -1 is either negative or above rows count.

 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：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
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：334 积分：2370 威望：0 精华：0 注册：2014/3/15 16:25:00 		  发帖心情 Post By：2014/9/24 20:42:00 [只看该作者]

谢谢了，搞定

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 4 次数据查询