数据报告和分组（形状附加）

Question

我硬编码了数据报告的DataMember和Datafields（我没有使用DataEnviroment，也不知道如何。我宁愿亲自编码）但是我检查的代码越多，我就不能得到解决这个问题。

我收到的错误消息是：

  

错误'8526'无法找到DataField'Omisions.Date'

在这部分代码中：

  

rpt.Refresh

在我在代码末尾执行rpt.Show之前。 rpt是我当前的datareport。 这是相关的代码：

  sql = "Shape {exec Usp_HoraExtra_Rut 1} As Normal " _
  & "Append ({exec Usp_HoraExtra_Rut 2} As Omisions " _
  & "Relate Nit To Nit)"
  rptrs.Open sql, db, adOpenStatic, adLockReadOnly

由于查询量大，我使用的是两个存储过程。

然后我添加了DataMember：

.Sections("Section1").Controls.Item("t_fecha").DataMember = "Omisions"

然后是DataFields：

.Sections("Section1").Controls.Item("t_fecha").DataField = "date"

然后：

rpt.Refresh
rpt.Show

如果有人能帮我一把，那就太大了。

编辑：拼写错误，清理代码。

Answer 1

对于任何可能阅读此内容的人...... 我通过从存储过程切换到视图解决了这个问题。出于某种原因，SHAPE不适用于sotred procs，我拒绝编写一个巨大的SQL查询代码。我刚刚在我的数据库上创建了一个视图并查询了它。

此外，连接字符串需要更改。 总而言之，坚果。