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

单纯的输入部分代码，然后自动补全代码，是比较简单的。

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

说是这么说，真要把那么多的圆点，还有等号后的值，都填到查询表里，够费事的。

主要麻烦在于，一个类型定义后，得好几个点，才能扒出最后带圆点的枚举值。

狐表的自动完成是在ACCESS这个数据库下的，结构比较简单，想完成想要的属性，只要参考下填入相关列项就能完成了。

集思广益，狐友有啥高见，百花齐放。

 

你定义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

 

代码放哪里