关于对象成员的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于对象成员的问题

共有2611人关注过本帖树形打印复制链接主题：关于对象成员的问题

源理

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

加好友

发短信

等级：婴狐帖子：49 积分：680 威望：0 精华：0 注册：2012/2/17 15:55:00

关于对象成员的问题 发帖心情

Post By：2014/3/15 10:41:00 [只看该作者]

用其它的VBE编辑器时，定义了一个变量后，再次引用就会自动显示此类对象的所有成员。

如：EXCELL的VBE中定义了一个dim sht as sheet 然后在后面只要打出sht.后面就会出来sheet对象所有的成员（包括方法、属性）。

我的问题是：有没有什么方法可以看到对象的所有成员，用一个什么语句之类的，在命令窗口运行后就能显示本对象的所有成员了。

如现在我遇到一个对象wrod报表对象。现在定义了一个Dim wrt As New WordReport(Table, TemplateFile, ReportFile)，我对这个Word报表Build完后，我还想再次用这个wrt变量再引用一个表格的数据建立另一个word报表,我却找不到方法对wrt变量重新引用table数据，只能重定义一个变量。请以 WordReport 为列告诉一下查看WordReport的所有成员的语句。

Bin

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

加好友

发短信

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

Post By：2014/3/15 10:44:00 [只看该作者]

Dim wrt As New WordReport(Table, TemplateFile, ReportFile)

Dim t As Type = wrt.Gettype()

Dim pis As System.Reflection.PropertyInfo() = t.GetProperties()

For Each pi As System.Reflection.PropertyInfo In pis

output.show(pi.name)

源理

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

加好友

发短信

等级：婴狐帖子：49 积分：680 威望：0 精华：0 注册：2012/2/17 15:55:00

Post By：2014/3/15 11:00:00 [只看该作者]

首先得谢谢Bin

试了一直代码可以用，但 WordReport这个对象只有一个成员吗？这是运行结果，其它的对象我试了有很多。

此主题相关图片如下：qq图片20140315105439.jpg

我想对wrt的Table再次引用一个数据表就不行了吗

Dim tm As String = ProjectPath & "Attachments\机械履历书.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\机械履历书1.doc" '指定目标文件
Dim r As Row
Dim str As String
r=Tables("自有设备台帐_Table1").Current
str="Select * from 机械台帐 where 管理编号='" & r("管理编号") & "'"
Tables("自有设备台帐_Table2").Fill(str,"SQL机械管理数据源",True)
Dim wrt As New WordReport(Tables("自有设备台帐_Table2"),tm,fl) '定义一个WordReport
wrt.Build
wrt.quit
'这里再次引用一个数据表,就不行了吗
'有点这个意思 wrt.table=Tables("自有设备台帐_Table3")

个人想法