主题：模拟关联

老师，模拟关联LoadChildren这个语法多列能否建立关联呢？

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

 

 

比如

 

DataTables("S征地记录").LoadChildren("S征地明细", "协议书编号]+[第几期结算", "[协议书编号]+[第几期结算]")

模拟关联后，我用窗口显示，上面Table绑定主表，下面绑定子表，怎么让子表只显示主表选定行呢？

 

CurrentChanged事件写筛选代码，如

 

If Forms("窗口1").Opened() '一定要判断用于模拟关联表的窗口是否已经打开
    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
End If

老师变通了一下这样写报错？

.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.3.9.1
错误所在事件：加载[进项piao录入]失败!
详细错误信息：
'FoxTempaX' 附近有语法错误。

If Forms("进项piao审核管理窗口").Opened()
    Dim t As Table =Tables("进项piao录入")
    If e.Table.Current IsNot Nothing Then
        Dim filter As String = "fa piao号码= '" & e.Table.Current("fa piao号码") & "'"
        If t.DataTable.find(filter) Is Nothing Then
            t.DataTable.appendload(filter)
        End If
        t.filter =filter
    End If
End If

试试改成

 

If Forms("进项piao审核管理窗口").Opened()
    Dim t As Table =Tables("进项piao录入")
    If e.Table.Current IsNot Nothing Then
        Dim filter As String = "fa piao号码= '" & e.Table.Current("fa piao号码") & "'"
        If t.DataTable.find(filter) Is Nothing Then

t.DataTable.LoadFilter = ""

't.DataTable.Load
            t.DataTable.appendload(filter)
        End If
        t.filter =filter
    End If
End If

 

不然做个例子发上来测试。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:模拟关联.table

事例做的内部表，不报错，但子表也没加载。

afterLoad事件代码删除，或者写成

 

DataTables("进项piao审核").LoadChildren("进项piao录入","fa piao号码]+[合同编码]+[计量期数]+[税价合计金额","[fa piao号码]+[合同编码]+[计量期数]+[税价合计金额]")

老师，我外部表，子表数据默认不加载的，还是不行呢？

 

.NET Framework 版本：2.0.50727.8762
Foxtable 版本：2018.3.9.1
错误所在事件：加载[进项piao录入]失败!
详细错误信息：
从数据类型 nvarchar 转换为 float 时出错。

 

 

那你就删除这句代码啊

 

DataTables("进项piao审核").LoadChildren("进项piao录入","fa piao号码]+[合同编码]+[计量期数]+[税价合计金额","[fa piao号码]+[合同编码]+[计量期数]+[税价合计金额]")