以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何知道一个对像的类型名称然后去定义  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=38794)
--  作者：guoweidong
--  发布时间：2013/8/7 11:45:00
--  如何知道一个对像的类型名称然后去定义
比如，我在表全局事件里，调用一个函数，然后把e这个对像传到函数，函数如可定义接收类型来操作。
--  作者：Bin
--  发布时间：2013/8/7 11:49:00
--  
不用定义.直接使用 args(0) 即可
--  作者：guoweidong
--  发布时间：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
--  作者：guoweidong
--  发布时间：2013/8/7 11:53:00
--  

追问，如何遍历当前对像的属性及方法，用Tab看不全，使用起来不放便。
--  作者：狐狸爸爸
--  发布时间：2013/8/7 11:58:00
--  

帮助 + tab
--  作者：有点甜
--  发布时间：2013/8/7 21:48:00
--  
以下是引用guoweidong在2013-8-7 11:52:00的发言：

直接用Args的话我在函数里没有写属性。


agrs是调用函数的时候传入的。