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

If e.Col.Name = "主窗" Then
    '列出所有窗口作为列内容
    Dim s11 As String = ""
    For Each frm As WinForm.Form In Forms
        s11 &= frm.name & "|"
    Next
   Tables("加载序列").cols("主窗").ComboList = s11.trim("|")
End If

If e.Col.Name = "主表" Then
    '''列出所有表作为列内容
    Dim s As String = ""
    Dim tab = basemainform.controls("mainpages")
    For Each p As object In tab.tabpages
        s &= p.text & "|"
    Next
    Tables("加载序列").cols("主表").ComboList = s.trim("|")
End If

上面代码分别获取数据没有关联性希望主窗以主表作为依据显示下拉待选数据

[此贴子已经被作者于2021/7/7 8:31:30编辑过]

If e.Col.Name = "主表" Then
    '''列出所有表作为列内容
    Dim s As String = ""
    For Each frm as WinForm.Form in forms

if ftm.TableName = e.row("窗口")
s &= p.text & "|"

endif
Next
e.Col.ComboList = s.trim("|")
End If

截图

[此贴子已经被作者于2021/7/7 13:04:16编辑过]

此主题相关图片如下：企业微信截图_20210707130305.png

申明错误

[此贴子已经被作者于2021/7/7 13:05:53编辑过]

打错字而已，这种简单的问题学会判断一下

if frm.TableName = e.row("窗口")

---------------------------

错误

---------------------------

编译错误:未声明“ftm”。它可能因其保护级别而不可访问。

错误代码：If ftm.TableName = e.Row("主窗")

---------------------------

确定

---------------------------

额

if frm.TableName = e.row("主窗")

[此贴子已经被作者于2021/7/7 14:05:58编辑过]

主题：获取主表下的窗口