以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于对象成员的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=47701) |
-- 作者:源理 -- 发布时间: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 -- 发布时间: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) Next
|
-- 作者:源理 -- 发布时间:2014/3/15 11:00:00 -- 首先得谢谢Bin 试了一直代码可
以用,但 WordReport这个对象只有一个成员吗? 这是运行结果,其它的对象我试了有很多。
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") 个人想法 |
-- 作者:Bin -- 发布时间:2014/3/15 11:01:00 -- 不行. |
-- 作者:源理 -- 发布时间:2014/3/15 11:05:00 -- 只能再定义 一个wrt2 才能引用其它数据了。 我的报表可能引用到数据源中的四张表中的数据,我的思路是用wrod报表然后四次用word报表bulid。 不知道有没有其它思路可能解决这个问题。
|
-- 作者:Bin -- 发布时间:2014/3/15 11:10:00 -- 4个表是什么关系? 如果是子父表关系可以使用引用关联表的方式. 如果是只是引用单个数据,可以考虑使用替换标签的方式.
|
-- 作者:Bin -- 发布时间:2014/3/15 11:11:00 -- 如果是一样的表.可以联合生成一个查询表再生成报表 |
-- 作者:源理 -- 发布时间:2014/3/15 11:20:00 -- 四个表的数据都不是单个的数据。四个表有关系,但不能建立,因为我的所有表都是窗口控件表,需要打开一个窗口才能加载一个数据,没有引用到直接引到foxtable中。 |
-- 作者:Bin -- 发布时间:2014/3/15 11:21:00 -- 那你用专业报表吧 |
-- 作者:源理 -- 发布时间:2014/3/15 11:28:00 -- 谢谢了,我就是去年用专业报表,但专业报表排不了那种版式。他中间有一页是横着的,专业报表也无法把页面横过来。 我决定放弃做这个功能。 还是得谢谢你Bin
|