以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  模拟关联表多列问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=95167)
--  作者：有点色
--  发布时间：2017/1/12 2:21:00
--  

If Forms("监理合同台帐").Opened() Then
    Dim t As Table = Tables("监理合同台帐_Table2")
    With Tables("监理合同台帐_Table1")
        If .Current Is Nothing Then
            t.Filter = "False"
        Else
            Dim filter As String = "1=1"
            If .Current.Isnull("项目名称") = False Then
                filter &= " and 项目名称 = \'" & .Current("项目名称") & "\'"
            Else
                filter &= " and 项目名称 is null"
            End If
            If .Current.Isnull("标段名称") = False Then
                filter &= " And 标段名称 = \'" & .Current("标段名称")  & "\'"
            Else
                filter &= " And 标段名称 is null"
            End If
            t.Filter = filter
        End If
    End With
End If
--  作者：有点色
--  发布时间：2017/1/12 14:54:00
--  

AfterLoad事件

 

\'模拟关联表:监理合同信息录入与监理费收费明细表的关联
Dim t1 As Table = Tables("监理合同信息录入_Table1")
With Tables("监理合同台帐")
    If .Current Is Nothing Then
        t1.Filter = "False"
    Else
        Dim filter As String = "1=1"
        If .Current.Isnull("项目名称") = False Then
            filter &= " and 项目名称 = \'" & .Current("项目名称") & "\'"
        Else
            filter &= " and 项目名称 is null"
        End If
        If .Current.Isnull("标段名称") = False Then
            filter &= " And 标段名称 = \'" & .Current("标段名称")  & "\'"
        Else
            filter &= " And 标段名称 is null"
        End If
        t1.Filter = filter
    End If
End With
--  作者：有点色
--  发布时间：2017/1/12 16:36:00
--  
Dim dt As String
dt = DataTables("合同监理费收费明细").GetComboListString("合同付款办法_收款条件","[项目名称] = \'" & e.Table.Current("项目名称") & "\'") 
Tables("监理合同标段明细录入_Table1").Cols("合同付款办法_收款条件").ComboList = dt
[此贴子已经被作者于2017/1/12 17:11:40编辑过]
--  作者：有点色
--  发布时间：2017/1/12 17:12:00
--  
Dim dt As String
dt = DataTables("合同监理费收费明细").GetComboListString("合同付款办法_收款条件","[项目名称] = \'" & e.Table.Current("项目名称") & "\'") 
e.Table.Cols("合同付款办法_收款条件").ComboList = dt
[此贴子已经被作者于2017/1/12 17:14:07编辑过]
--  作者：有点色
--  发布时间：2017/1/12 17:14:00
--  

Dim dt As String
dt = DataTables("合同监理费收费明细").GetComboListString("合同付款办法_收款条件","[项目名称] = \'" & e.Table.Current("项目名称") & "\'")

e.Table.Cols("合同付款办法_收款条件").ComboList = dt
--  作者：有点色
--  发布时间：2017/1/12 17:25:00
--  

If e.Table.Current Is Nothing Then return

Dim dt As String
dt = DataTables("合同监理费收费明细").GetComboListString("合同付款办法_收款条件","[项目名称] = \'" & e.Table.Current("项目名称") & "\'")

e.Table.Cols("合同付款办法_收款条件").ComboList = dt
--  作者：有点色
--  发布时间：2017/2/20 15:43:00
--  
试试这样写
 
   Dim r As Row = Tables("监理合同台帐_Table1").Current
   msgbox(1)
   If r IsNot Nothing Then
        msgbox(2)
        e.DataRow("项目名称") = r("项目名称")
        e.DataRow("标段名称") = r("标段名称")
        e.DataRow("建设单位") = r("建设单位")
        e.DataRow("监理单位") = r("监理单位")
        e.DataRow("归属部门") = r("归属部门")
   End If
--  作者：有点色
--  发布时间：2017/2/20 17:00:00
--  

 

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:监理合同管理.table
--  作者：有点色
--  发布时间：2017/2/20 18:43:00
--  

看不懂你要改什么，请说明操作步骤和需要的效果。

 

我修改的是 录入窗口。
--  作者：有点蓝
--  发布时间：2017/2/20 20:11:00
--  
Tables("监理合同台帐_Table1").AddNew()
Forms("监理合同信息录入").Open()