如何知道一个对像的类型名称然后去定义 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何知道一个对像的类型名称然后去定义

共有3737人关注过本帖树形打印复制链接主题：如何知道一个对像的类型名称然后去定义

guoweidong

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

加好友

发短信

等级：幼狐帖子：140 积分：1202 威望：0 精华：0 注册：2013/7/28 12:10:00

如何知道一个对像的类型名称然后去定义 发帖心情

Post By：2013/8/7 11:45:00 [只看该作者]

比如，我在表全局事件里，调用一个函数，然后把e这个对像传到函数，函数如可定义接收类型来操作。

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/8/7 11:49:00 [只看该作者]

不用定义.直接使用 args(0) 即可

guoweidong

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

加好友

发短信

等级：幼狐帖子：140 积分：1202 威望：0 精华：0 注册：2013/7/28 12:10:00

Post By：2013/8/7 11:52:00 [只看该作者]

直接用Args的话我在函数里没有写属性。
Dim CurrTable As Table = Args(0)
Dim CurrRow As Row = Args(1)
Select Case CurrTable.Name
    Case "退包认领_Table1"
        If CurrRow("是否有买有信息") = False Then
            Tables("Unpacking").Filter = " [拆包编号] = '" & CurrRow("拆包编号") & "'"
            Tables("Unpacking").Position = 1
            Forms("认领编辑").Open
        Else
            MessageBox.Show("选择商品已认领!","友情提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
End Select