以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助父表与子表同步加载多列关联怎写?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53370)

--  作者:jk362223
--  发布时间:2014/7/6 15:27:00
--  [求助父表与子表同步加载多列关联怎写?

父表与子表同步加载之二

语法

LoadChildren(子表名称)
LoadChildren(子表名称, 父表关联列名称, 子表关联列名称)

由LoadChildren的语法可以看出,如果父表和子表没有建立关联,我们可以通过指定关联列来实现同步加载,例如:

DataTables("订单").LoadChildren("订单明细", "订单编号", "订单编号")


上面是单列关联的代码,

我的问题是,若是二列以上关联,代码如何写?请帮我.


--  作者:有点甜
--  发布时间:2014/7/6 15:30:00
--  

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=51269&skin=0

 


--  作者:jk362223
--  发布时间:2014/7/7 8:51:00
--  
若是跨表统计的自动更新,统计表的DataColChanged事件 中设置如下代码:

If e.DataCol.Name = "产品" Then
    e.DataRow("数量") = DataTables("订单").Compute("Sum(数量)","[产品] = \'" & e.NewValue & "\'")
End
If

订单表的DataColChanged事件代码设置为:

If e.DataCol.Name = "数量" Then
    Dim pr As DataRow
    pr =
DataTables("统计").Find("产品 = \'" & e.DataRow("产品") & "\'")
    If
pr IsNot Nothing
Then
        pr(
"数量")= pr("数量") + e.NewValue - e.OldValue
    End
If
End
If


现在的问题是统计表和订单表不止是依[产品]一列,要是二列以上怎办?


--  作者:Bin
--  发布时间:2014/7/7 8:53:00
--  
("产品 = \'" & e.DataRow("产品") & "\' and 第二列=\'123\'")
--  作者:jk362223
--  发布时间:2014/7/10 20:36:00
--  
系统的项目窗口的最大化按钮等的代码是什么?在系统命令大全中没找到,我想把它设置在我的窗中
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20140710202756.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2014/7/10 20:38:00
--  

 最小化 baseMainform.WindowState = 0

 

 正常 baseMainform.WindowState = 1

 

 最大化 baseMainform.WindowState = 2


--  作者:jk362223
--  发布时间:2014/7/12 18:45:00
--  
那普通的窗口的最大化按钮等的代码是什么?
--  作者:有点甜
--  发布时间:2014/7/13 9:33:00
--  
以下是引用jk362223在2014-7-12 18:45:00的发言:
那普通的窗口的最大化按钮等的代码是什么?

 

Forms("窗口1").BaseForm.WindowState = 2


--  作者:jk362223
--  发布时间:2014/7/26 15:57:00
--  
若表A ,表B ,表 C.   表B是表A的子表,通过表A的AfterLoad中
If DataTables.Contains(" 表A ") Then
If e.DataTable.Name = " 表A " ThenDataTables(" 表A ").LoadChildren(" 表B ", "身份证号", "身份证号")
  End If
End If   表C是表B的子表,也用上述代码关联,现希望表C随表A加载,代码如何写?图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2014/7/26 16:10:00
--  
表A的AfterLoad事件:
 
DataTables(" 表A ").LoadChildren(" 表B ", "身份证号", "身份证号")
DataTables(" 表B ").LoadChildren(" 表C ", "身份证号", "身份证号")