Foxtable(狐表)用户栏目专家坐堂 → 如何通过窗口的按钮加载后台数据,详细进贴看


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

主题:如何通过窗口的按钮加载后台数据,详细进贴看

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


加好友 发短信
等级:幼狐 帖子:85 积分:593 威望:0 精华:0 注册:2018/1/16 20:53:00
如何通过窗口的按钮加载后台数据,详细进贴看  发帖心情 Post By:2018/4/16 15:05:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:uc截图20180416143723.png
图片点击可在新窗口打开查看



如何通过窗口的按钮加载后台其它用户添加的数据数据,

窗口中的按钮为:前单,后单

单据的排序为单号

在datatable没有加载的情况下  通过窗口的按钮控件加载

例如:datatable加载单号为XT20180411-001,XT20180415-001,XT20180415-002

通过窗口的按钮控件加载其他用户添加的单号XT20180413-001(不确定单号)

在窗口加载XT20180415-001的情况下按【前单】加载显示XT20180413-110(不确定单号)也可能是XT20180412-100(当前最大编号)

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


加好友 发短信
等级:幼狐 帖子:85 积分:593 威望:0 精华:0 注册:2018/1/16 20:53:00
  发帖心情 Post By:2018/4/16 15:07:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:uc截图20180416143907.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:版主 帖子:64837 积分:325283 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/16 15:23:00 [只看该作者]

根据当前单号合成加载条件,如

 

Dim dt As DataTable = DataTables("表A")

dt.LoadFilter = "单据编号 > '" & e.Form.Controls("TextBox1").Text & "'"

dt.LoadTop = 1

dt.LoadOrder = "单据编号"

dt.LoadPage = 0

dt.Load


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


加好友 发短信
等级:幼狐 帖子:85 积分:593 威望:0 精华:0 注册:2018/1/16 20:53:00
  发帖心情 Post By:2018/4/16 17:35:00 [只看该作者]

不行 比如这4个单号:   XT20180411-001,XT20180415-001,XT20180415-002,XT20180416-001

中间会跳过XT20180415-002这个单号

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


加好友 发短信
等级:版主 帖子:64837 积分:325283 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/16 17:37:00 [只看该作者]

以下是引用linyunu在2018/4/16 17:35:00的发言:
不行 比如这4个单号:   XT20180411-001,XT20180415-001,XT20180415-002,XT20180416-001

中间会跳过XT20180415-002这个单号

 

不可能,上传实例测试。


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


加好友 发短信
等级:幼狐 帖子:85 积分:593 威望:0 精华:0 注册:2018/1/16 20:53:00
  发帖心情 Post By:2018/4/16 21:45:00 [只看该作者]

自己调试可以了
[此贴子已经被作者于2018/4/16 21:49:43编辑过]

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


加好友 发短信
等级:超级版主 帖子:20159 积分:102833 威望:0 精华:7 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/4/16 21:58:00 [只看该作者]


Dim dt As DataTable = DataTables("表A")
dt.LoadFilter = "单号 < '" & e.Form.Controls("TextBox1").Text & "'"
dt.LoadTop = 1
dt.LoadOrder = "单号"
dt.LoadReverse = True
dt.LoadPage = 0
dt.Load


Dim dt As DataTable = DataTables("表A")
dt.LoadFilter = "单号 > '" & e.Form.Controls("TextBox1").Text & "'"
dt.LoadTop = 1
dt.LoadOrder = "单号"
dt.LoadReverse = False
dt.LoadPage = 0
dt.Load

 回到顶部