以文本方式查看主题
- 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
|