- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 获取主表下的窗口 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=169942)
-- 发布时间：2021/7/7 8:31:00
-- 获取主表下的窗口
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编辑过]
-- 发布时间：2021/7/7 8:59:00
--
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 & "|"
s &= p.text & "|"
endif
Next
e.Col.ComboList = s.trim("|")
End If
Next
e.Col.ComboList = s.trim("|")
End If
-- 发布时间：2021/7/7 13:03:00
--
截图
[此贴子已经被作者于2021/7/7 13:04:16编辑过]
-- 发布时间：2021/7/7 13:05:00
--
此主题相关图片如下：企业微信截图_20210707130305.png
申明错误
[此贴子已经被作者于2021/7/7 13:05:53编辑过]
-- 发布时间：2021/7/7 13:34:00
--
打错字而已，这种简单的问题学会判断一下
if frm.TableName = e.row("窗口")
-- 发布时间：2021/7/7 14:04:00
--
---------------------------
错误
---------------------------
编译错误:未声明“ftm”。它可能因其保护级别而不可访问。
错误代码：If ftm.TableName = e.Row("主窗")
---------------------------
确定
---------------------------
-- 发布时间：2021/7/7 14:06:00
--
额
if frm.TableName = e.row("主窗")
[此贴子已经被作者于2021/7/7 14:05:58编辑过]