主题：[求助] 追问：代码自动完成与代码精灵，获取枚举值

foxtable的。就是简单查表而已。

比如你定义了

Dim abc As String

然后你abc后的属性和方法，就直接查找 String 类型的属性和方法即可。

用代码获取属性方法也行。如

Dim o = Forms("窗口1")

For Each c As object In o.Gettype.getproperties
    output.show(c.name)
Next
For Each c As object In o.Gettype.getMethods
    output.show(c.name)
Next

你定义abc之后，当写到 abc. 的时候就直接去查下String类型的属性和方法就行啊，很简单啊。

而且，你直接获取对象的属性和方法也很简单，类似3楼那样

Functions.remove("函数")
Dim Code As String
Code = "return gettype(datatable)"
Functions.Add("函数",Code)
Functions.Complie()
Dim o = Functions.Execute("函数")

For Each c As object In o.getproperties
    output.show(c.name)
Next
For Each c As object In o.getMethods
    output.show(c.name)
Next

比较麻烦，你要用循环，或者递归，最后得出值

Functions.remove("函数")
Dim Code As String
Code = "return gettype(PrintDoc)"
Functions.Add("函数",Code)
Functions.Complie()
Dim o = Functions.Execute("函数")

Dim p = o.GetProperty("PageFooter")

Functions.remove("函数")
Code = "return gettype(" & p.PropertyType.tostring & ")"
Functions.Add("函数",Code)
Functions.Complie()
o = Functions.Execute("函数")

p = o.GetProperty("BreakAfter")

Functions.remove("函数")
Code = "return gettype(" & p.PropertyType.tostring & ")"
Functions.Add("函数",Code)
Functions.Complie()
o = Functions.Execute("函数")
msgbox(o.tostring)

Functions.remove("函数")
Code = "return gettype(" & o.tostring & ")"
Functions.Add("函数",Code)
Functions.Complie()
o = Functions.Execute("函数")
For Each c As object In  [Enum].GetValues(o)
    output.Show(c.Tostring)
Next

哪里需要查询表啊？

比如你敲击.的时候，就截取这段 Doc.PageFooter.BreakAfter，然后分割出来。先获取doc的类型，然后获取PageFooter的类型，然后获取BreakAfter的类型，最后就能得到你要的属性方法等东西。