如何取到子表多行的数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

参考：http://www.foxtable.com/webhelp/topics/1472.htm

如：

企业地址表，datacolchanged事件

Select Case e.DataCol.Name
    Case "地址"
        Dim pr As DataRow
        pr = DataTables("企业目录").Find("企业名称 = '" & e.DataRow("企业名称") & "'")
        If pr IsNot Nothing Then
            DataTables("企业目录").DataCols("企业名称").RaiseDataColChanged(pr)
        End If
End Select

企业目录表，datacolchanged事件

If e.DataCol.Name = "企业名称" Then
Dim Filter As String = "[企业名称] = '" & e.NewValue & "'"
e.DataRow("地址") = DataTables("企业地址").GetComboListString("地址", Filter).replace("|","；")
End If

主题：如何取到子表多行的数据