以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何通过窗口的按钮加载后台数据,详细进贴看  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=117630)

--  作者:linyunu
--  发布时间: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
--  发布时间:2018/4/16 15:07:00
--  

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

--  作者:有点甜
--  发布时间: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
--  发布时间:2018/4/16 17:35:00
--  
不行 比如这4个单号:   XT20180411-001,XT20180415-001,XT20180415-002,XT20180416-001

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

--  作者:有点甜
--  发布时间: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
--  发布时间:2018/4/16 21:45:00
--  
自己调试可以了
[此贴子已经被作者于2018/4/16 21:49:43编辑过]

--  作者:有点蓝
--  发布时间: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