Foxtable(狐表) → 用户栏目 → 专家坐堂 → 下移一行的问题


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

主题：下移一行的问题
帅哥哟，离线，有人找我吗？
gudao123456
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：855 积分：6402 威望：0 精华：0 注册：2017/11/21 21:31:00 		下移一行的问题  发帖心情 Post By：2019/2/13 9:10:00 [显示全部帖子]

老师：我再设计一个按钮时，用系统命令：Syscmd.Row.MoveDown()，结果提示错误，该表不支持下移一行，为什么？如何解决？谢谢！

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


加好友 发短信
等级：四尾狐 帖子：855 积分：6402 威望：0 精华：0 注册：2017/11/21 21:31:00 		  发帖心情 Post By：2019/2/13 9:54:00 [显示全部帖子]

我用下面代码：
Dim n As Integer=CurrentTable.Position
If n=CurrentTable.Rows.Count Then
    MessageBox.show("当前为最后一条记录!")
Else
    n=n+1
    CurrentTable.Position=n
End If
已经解决下一条的问题。
但这个是外部数据源，如何解决可见记录的行数问题？即如何判断加载记录的首行和末行？
[此贴子已经被作者于2019/2/13 9:55:39编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
gudao123456
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：855 积分：6402 威望：0 精华：0 注册：2017/11/21 21:31:00 		  发帖心情 Post By：2019/2/13 10:20:00 [显示全部帖子]

不好意思，我意思表达不清楚。
我打开的表是外部数据源，是经过选择性加载的，CurrentTable.Position所表示的是加载后的当前行还是后台整个表的当前行？因为我要判断当前是否是加载记录的第一行和最后一行。我在执行代码：
Dim n As Integer=CurrentTable.Position
If n=CurrentTable.Rows.Count Then
    MessageBox.show("当前为最后一条记录!")
Else
    n=n+1
    CurrentTable.Position=n
End If
时，到了最后一行并不显示“当前为最后记录”，

同样，上移一行时我也要判断是否是第一行：
Dim n As Integer=CurrentTable.Position
If n>0 Then
    n=n-1
    CurrentTable.Position=n
Else
    MessageBox.show("当前为第一条记录!")
End If

[此贴子已经被作者于2019/2/13 10:23:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
gudao123456
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：855 积分：6402 威望：0 精华：0 注册：2017/11/21 21:31:00 		  发帖心情 Post By：2019/2/13 11:20:00 [显示全部帖子]

OK，谢谢！

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