主题：[求助]模拟关联

currentChanged事件

If Forms("BIOS").Opened() '一定要判断用于模拟关联表的窗口是否已经打开
    Dim t As Table = Tables("BIOS_Table3")
    With e.Table
        If .Current Is Nothing Then
            t.Filter = "False"
        Else
            t.Filter = "子菜单编号 = " & .Current("子菜单编号")
        End If
    End With
End If

我测试没问题，请说明测试步骤。

我点击第二行、第三行，第三个表没有显示数据。

如果是第三个表新增数据的问题，datarowadding事件这样写代码

If CurrentTable.Name = "BIOS_Table3" Then '如果当前表是模拟的关联表
    Dim r As Row = Tables("BIOS_Table1").Current
    If r IsNot Nothing Then
        e.DataRow("子菜单编号") = r("子菜单编号")
    End If
End If

参考代码，自己改写

Dim str As String = "Abc Hcde Whsc"
Dim ary = str.split(" ")
Dim nstr As String = ""
For Each s As String In ary
    nstr &= left(s,  1)
Next
msgbox(nstr)

datarowadding

If CurrentTable.Name = "BIOS_Table3" Then '如果当前表是模拟的关联表
    Dim r As Row = Tables("BIOS_Table1").Current    
    If r IsNot Nothing Then        
        Dim str As String = r("主菜单")
        Dim ary = str.split(" ")
        Dim nstr As String = ""
        For Each s As String In ary
            nstr &= left(s,  1)
        Next
        e.DataRow("类型") = nstr
    End If
End If

Table3、Table1的名字，请写正确，这个是最基本的，你如果也没看懂，请重新学习foxtable基础知识。

你给的例子运行没有问题啊。

请具体说明如何测试，要达到怎样的效果。

升级到最新版foxtable即可打开。