MainTable = Tables("合同") 不激活MainTableChanging - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → MainTable = Tables("合同") 不激活MainTableChanging

共有2457人关注过本帖树形打印复制链接主题：MainTable = Tables("合同") 不激活MainTableChanging

affixed

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：597 积分：4974 威望：0 精华：0 注册：2012/12/27 12:34:00

Post By：2018/12/26 12:01:00 [显示全部帖子]

甜版主，请问这段代码如何使用？

affixed

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：597 积分：4974 威望：0 精华：0 注册：2012/12/27 12:34:00

Post By：2018/12/26 12:37:00 [显示全部帖子]

Public Class myTableCollection
Public Sub new
End Sub

Default Public readonly Property Item(tname As String) As Table
Get
If Foxtable.Tables.Contains(tname) Then
    Return Foxtable.Tables(tname)
Else
    msgbox("测试,不存在表【" & tname & "】")
    Return Nothing
End If
End Get
End Property

End Class

Public mytables = new myTableCollection

readonly Property Tables As myTableCollection
Get
Return mytables
End Get
End Property

那这段代码是什么时候执行的呢？

affixed

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：597 积分：4974 威望：0 精华：0 注册：2012/12/27 12:34:00

Post By：2018/12/26 15:40:00 [显示全部帖子]

也就是说Public Class myTableCollection这个类是重新定义了原来的TableCollection吗？

在运行msgbox(Tables.Gettype.name)的时候，取用的是myTableCollection类。

对吗？

affixed

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：597 积分：4974 威望：0 精华：0 注册：2012/12/27 12:34:00

Post By：2018/12/26 16:01:00 [显示全部帖子]

代码中的 msgbox("测试,不存在表【" & tname & "】")

测试不出来啊，测试代码：msgbox（Tables("测试").Name）

结果还是原来的提示内容：不存在名称为"测试"的Table! 而不是"测试,不存在表【测试】"

下一主题 >> << 上一主题

主题：MainTable = Tables("合同") 不激活MainTableChanging