跪求！！！vb6.0 dsr报表文件升级为RPX，怎么进行赋值？

收藏

把VB6.0 dsr报表文件升级为ActiveReports 7.0 的RPX文件，然后读出报表
Private xtr As New System.Xml.XmlTextReader(Application.StartupPath + "\\Sample.rpx")
Private rpt As New GrapeCity.ActiveReports.SectionReport
rpt.LoadLayout(xtr)

原来ＶＢ　６．０　是这样给它赋值的：
rpt.transport_cd = Trim(VDB_fGetColName(objRec, "transport_cd"))

现在转换为XmlTextReader加载到SectionReport，怎么读取里面的字段，怎么给里面的字段赋值？
跪求！！！！

草帽专家 · 草帽专家

为什么都没人回答？是我表达的不够清楚吗？
求各位大神解救啊！！！

ZenosZeng · ZenosZeng

草帽专家你好

我不太清楚 transport_cd 属性是代码的说明意思，能详细说明一下或者贴更详细的代码给我吗。

草帽专家 · 草帽专家

transport_cd ，是报表文件里的一个字段，原来的VB 6.0 ：

                  Set rpt1 = New actPRT100

                  rpt1.Fact_Cd = Trim(VDB_fGetColName(objRec, "fact_cd"))
                  rpt1.transport_cd = Trim(VDB_fGetColName(objRec, "transport_cd"))
                  rpt1.Bos_Cd = Trim(VDB_fGetColName(objRec, "bos_cd"))
                  rpt1.Haisya_No = RTrim(VDB_fGetColName(objRec, "haisya_no"))
                  rpt1.Recordset = objRec2
                  rpt1.DateTime = strDate
                  rpt1.Run False
现在activeReports 7.0 里面不知道怎么去获取里面的字段，并给他进行赋值？？？？

ZenosZeng · ZenosZeng

在AR7中是通过 rpt1.Fields["Fact_Cd"] 来方法报表字段，但是如果在报表的 DataInitialize 和 FetchData 事件之外访问Fields属性是不安全的

我们建议你通过数据绑定的方式来设置数据，比如将一个DataTable（包含 Fact_Cd，transport_cd，Bos_Cd 等字段）作为 rpt1.DataSource = DataTable。

草帽专家 · 草帽专家

那报表本身的属性怎么获取，比如rpt1.Pages怎么获取这个属性呢？？
                     For i = 0 To rpt1.Pages.Count - 1
                        ''rpt1
                        rpt2.Pages.Add()
                        rpt2.Pages(rpt2.Pages.Count - 1).Overlay(rpt1.Pages(i))
                        rpt2.Pages(rpt2.Pages.Count - 1).Orientation = rpt1.Pages(i).Orientation
                     Next i

ZenosZeng · ZenosZeng

可以使用一样的代码来访问 Pages 属性：

rpt.Document.Pages

草帽专家 · 草帽专家

谢谢 dof,这个问题解决了
现在有个项目，vb6.0 升级为 vb.net
小弟不才，还希望多多指教

ZenosZeng · ZenosZeng

你谦虚了，如果有产品相关的问题，你可以随时发帖。

		自动登录	找回密码
密码			立即注册

[已处理] 跪求！！！vb6.0 dsr报表文件升级为RPX，怎么进行赋值？

8 个回复

活字格认证

圣诞拼拼乐

微信认证勋章

讲师达人

元老葡萄

悬赏达人