我只有10分了请高手不吝赐教.

Question

为了得到数据对象的属性写以下过程:
Public Function getproperties(obj1 As Object) As String
Dim obj2 As Object
Dim strfh As String
For Each obj2 In obj1.Properties
strfh = strfh & obj2.Name
strfh = strfh & "="
strfh = strfh & obj2.Value
Next
getproperties = strfh
End FunctionPrivate Sub Command1_Click()
Dim objws As Workspace
For Each objws In DBEngine.Workspaces
Text1.Text = getproperties(objws)
NextEnd Sub以上过程如不要strfh = strfh & obj2.Value一句可运行,但肯定不对,如加上这句就会提示:实时错误:3251.这种对象类型不支持该操作.请问为何.

Answer 1

'改成:
Public Function getproperties(obj1 As Workspace) As String
Dim obj2 As Workspace.property
Dim strfh As String
For Each obj2 In obj1.Properties
strfh = strfh & obj2.Name
strfh = strfh & "="
strfh = strfh & obj2.Value
Next
getproperties = strfh
End FunctionPrivate Sub Command1_Click()
Dim objws As Workspace
For Each objws In DBEngine.Workspaces
Text1.Text = getproperties(objws)
NextEnd Sub
'试一下

Answer 2

不行.提示Dim obj2 As Workspace.property  这一句"类型不匹配"