以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  分页加载  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=99937)
--  作者：cqlistone
--  发布时间：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
--  作者：有点蓝
--  发布时间：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()
next
--  作者：cqlistone
--  发布时间：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对应的产品的结果才等于合格
--  作者：有点色
--  发布时间：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