关联表追加数据怎么分页加载？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关联表追加数据怎么分页加载？

共有4308人关注过本帖树形打印复制链接主题：关联表追加数据怎么分页加载？

swagger

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

关联表追加数据怎么分页加载？ 发帖心情

Post By：2020/6/2 12:01:00 [显示全部帖子]

Dim t As Table = Tables("窗口1_Table1")
With Tables("产品")
    If .Current Is Nothing Then
        t.Filter = "False"
    Else
        t.Filter = "产品编号 = " & .Current("产品编号")
    End IF
End With

然后追加数据，这样关联表怎么对对应的产品的订单进行分页加载呢？

swagger

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2020/6/2 12:21:00 [显示全部帖子]

好像没解决问题。我知道怎么模拟关联，然后怎么分页加载，但是不知道怎么对关联表分页加载，譬如订单和订单明细，然后点击订单的ID001的订单，显示关联的订单明细，如果订单ID001的关联订单明细有100行呢，肯定要进行分页加载，如果用正常的分页加载，譬如这样，

With DataTables("订单明细")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 20
    .LoadPage = 0
    .Load()
End With

就会把所有的订单明细分页加载，而不是对对应订单ID001的订单明细进行分页加载

swagger

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2020/6/2 13:25:00 [显示全部帖子]

用了

With DataTables("订单.订单明细")

显示 "不存在名称为订单.订单明细的datatable"

swagger

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2020/6/2 13:47:00 [显示全部帖子]

但是子表也无法分页加载，为什么呢

With DataTables("订单.订单明细")
    .LoadFilter = "" '一定要清除加载条件
    .LoadTop = 20
    .LoadPage = 0
    .Load()
End With

显示 "不存在名称为订单.订单明细的datatable"

swagger

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2020/6/2 13:49:00 [显示全部帖子]

就是说无法对关联子表分页加载？

这个问题怎么办呢，如果关联子表数据量大？

swagger

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2020/6/2 14:18:00 [显示全部帖子]

如果是对应多个订单呢？是不是这样

With DataTables("订单明细")

.LoadFilter = "产品编号 = " & .Current("产品编号")

.LoadTop = 20

.LoadPage = 0

.Load()

End With

swagger

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2020/6/6 16:26:00 [显示全部帖子]

已经可以子表分页了，现在遇到打印问题，怎么打印分页子表？是否用基于后台数据生成报表？

基于后台数据生成报表

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")
Dim fl As String = ProjectPath & "Reports\出库单.xls"
book.AddDataTable("出库","数据源名称","Select * f rom {出库} where 出库单编号= 'CK-20030726001'") '添加父表
book.AddDataTable("出库明细","数据源名称","Select * f rom {出库明细} where 出库单编号= 'CK-20030726001'") '添加子表
book.AddRelation("出库","出库单编号","出库明细","出库单编号") '建立关联
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

例子是基于具体某个编号的子表打印。如果所有编号的子表打印呢，这个该怎么写？

swagger

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：689 积分：5362 威望：0 精华：0 注册：2012/8/25 20:50:00

Post By：2020/6/6 18:07:00 [显示全部帖子]

还是不行

[此贴子已经被作者于2020/6/7 11:54:42编辑过]

下一主题 >> << 上一主题

主题：关联表追加数据怎么分页加载？