Foxtable(狐表)用户栏目专家坐堂 → 动态加载表,怎么分页加载


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

主题:动态加载表,怎么分页加载

帅哥,在线噢!
cd_tdh
  11楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/5/21 17:30:00 [只看该作者]

以下是引用有点蓝在2018/5/18 22:43:00的发言:
属性、方法都是属于对象的。只要是同一类型对象,没有特别说明,肯定都适用

Dim cvs As String Tables("订单").GetColVisibleWidth()
Tables(
"窗口名_Table1").SetColVisibleWidth(cvs)

老师这样写,原来关于列的属性都变了,比如我是居中的,不居中了,设置了小数点位数的,不对了,绘制了列格式的,也没有了,


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


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

以下是引用cd_tdh在2018/5/21 17:30:00的发言:

Dim cvs As String Tables("订单").GetColVisibleWidth()
Tables(
"窗口名_Table1").SetColVisibleWidth(cvs)

老师这样写,原来关于列的属性都变了,比如我是居中的,不居中了,设置了小数点位数的,不对了,绘制了列格式的,也没有了,

 

那你不应该用【窗口sqlTable表】啊,请绑定主表或者副本表。


 回到顶部
帅哥,在线噢!
cd_tdh
  13楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/5/21 20:27:00 [只看该作者]

老师,直接绑定主表"进项piao录入",初始没加载表,怎么控制加载量和查询呢?

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


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/5/21 20:30:00 [只看该作者]


 回到顶部
帅哥,在线噢!
cd_tdh
  15楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/5/21 20:40:00 [只看该作者]

If DataTables.Contains("订单") = False
    DataTables.
Load("订单")
End If

外部表设置了不加载,执行上面代码是指加载表不会加载数据哇???


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


加好友 发短信
等级:超级版主 帖子:105481 积分:536396 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/5/21 20:49:00 [只看该作者]

加载表和加载数据是完全不同的概念。加载表的时候是否会加载数据仍然受下面2个事件控制

对于内部表,请参考事件:BeforeLoadInnerTable
对于外部表,请参考事件:
BeforeLoadOuterTable

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


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

以下是引用cd_tdh在2018/5/21 20:40:00的发言:
If DataTables.Contains("订单") = False
    DataTables.
Load("订单")
End If

外部表设置了不加载,执行上面代码是指加载表不会加载数据哇???

 

1、去看例子的 BeforeLoadOuterTable 事件代码,在那里设置了没有加载数据;

 

2、如果你需要加载的时候,参考 http://www.foxtable.com/webhelp/scr/1928.htm

 


 回到顶部
帅哥,在线噢!
cd_tdh
  18楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/5/30 10:14:00 [只看该作者]

老师,分页后以前做的授权没法用了,之前是根据列“组织机构”,做的授权的集合,加载的时候根据授权来加载对应的数据,现在分页后怎么来根据表单授权来加载呢?

以前是弄了内部函数,根据授权来加载的

Dim dt As DataTable=args(0)
Tables("账号密码").Filter = ""

Dim dr As DataRow=DataTables("账号密码").sqlFind("账号='" & _UserName  & "'")
If dr Is Nothing  Then Exit Function

Dim lst1 As new List(of String)
Dim lst2 As new List(of String)
lst1.AddRange(dr("加载集合").split(","))

'加载范围
Dim filt As String = Nothing
For Each ls As String In lst1
    If filt<>"" Then filt=filt & " OR "
    filt=filt & "所属机构= '" & ls & "'"
Next
'加载
dt.LoadFilter=filt
dt.Load

[此贴子已经被作者于2018/5/30 10:20:41编辑过]

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


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

你设置了 dt.LoadFilter=filt 后,就不要修改LoadFilter的值了。这样你无论怎么加载,都是这个条件啊,是否分页都没关系。

 

 


 回到顶部
帅哥,在线噢!
cd_tdh
  20楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3023 积分:20258 威望:0 精华:0 注册:2016/3/28 16:57:00
  发帖心情 Post By:2018/5/30 11:00:00 [只看该作者]

那分页这儿这样调用这个内部函数,结果还是不正确呢?

 

Functions.Execute("单表加载",DataTables("中标统计"))

With DataTables("中标统计")
    .LoadFilter = "" '清除加载条件
    .LoadPage = 0 '加载第一页
    .LoadTop =  20 '每页10行
    .LoadOver =  "项目编码"
    .LoadReverse = True
    .Load()
    e.Form.Controls("TextBox1").Value = 1 & "/" & .TotalPages
End  With

[此贴子已经被作者于2018/5/30 11:15:23编辑过]

 回到顶部
总数 37 上一页 1 2 3 4 下一页