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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分页加载

共有1794人关注过本帖树形打印复制链接主题：分页加载

cqlistone

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

加好友

发短信

等级：婴狐帖子：58 积分：713 威望：0 精华：0 注册：2015/5/11 20:47:00

分页加载

Post By：2017/4/30 13:47:00 [只看该作者]

你好

可以在窗口的AfterLoad事件用以下代码控制多个表的首页加载吗

Dim dt As WinForm.Table

Select Case dt.name

Case "表A","表B"

DataTables("dt").LoadFilter = ""

DataTables("dt").LoadPage = 0

DataTables("dt").LoadTop = 3

DataTables("dt").Load()

e.Form.Controls("TextBox1").Value = 1 & " / " & DataTables("dt").TotalPages

End Select

有点蓝

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

加好友

发短信

等级：超级版主帖子：110584 积分：562816 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/5/2 8:35:00 [只看该作者]

dim name() as string = {"表A","表B"}

for each n as string in name

DataTables(n).LoadFilter = ""

DataTables(n).LoadPage = 0

DataTables(n).LoadTop = 3

DataTables(n).Load()

cqlistone

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

加好友

发短信

等级：婴狐帖子：58 积分：713 威望：0 精华：0 注册：2015/5/11 20:47:00

Post By：2017/5/2 9:56:00 [只看该作者]

你好！

请提供下代码

表A-主表			表B-明细
产品	型号	结果	产品	型号	状态
A	A1	不合格	A	A1	合格
A	A2	合格	A	A1	不合格
B	B1	不合格	A	A1	合格
			A	A2	合格
			B	B1	不合格


表B同款产品和型号只要有一件是不合格，则表A对应的同款产品型号的结果=不合格
只有表B同款产品都为合格时，表A对应的产品的结果才等于合格

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/5/2 10:17:00 [只看该作者]

参考这个例子

示例四

假定订单和订单明细表都有一个名为"审核"的列,逻辑型.
当某个订单的所有订单明细全部通过审核后,此订单也自动审核通过,当某订单的任何一个订单明细取消审核后,此订单也自动取消审核.
为此可以将订单明细表的DataColChanged事件代码设置为:

If e.DataCol.name = "审核" Then
    Dim pr As DataRow = e.DataRow.GetParentRow("订单")
    If pr IsNot Nothing Then
        Dim crs As List(of DataRow) = pr.GetChildRows("订单明细")
        Dim cnt As Integer
        For Each cr As DataRow In crs
            If cr("审核") = True
                cnt = cnt + 1
            End If
        Next
        pr("审核") = (crs.Count = cnt)
    End If
End If

http://www.foxtable.com/webhelp/scr/2649.htm

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

主题：分页加载