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

我硬编码了一个数据报告的DataMember和Datafields（我不使用DataEnvironment，也不知道如何编写。我宁愿亲自编写），但我越检查代码，就越无法解决这个问题

我收到的错误消息是：

错误“8526”找不到数据字段“Omisions.Date”

在守则的这部分：

更新

就在我做一个

rpt.Show

之前，在代码末尾

rpt

是我当前的数据报告。 以下是相关代码：

  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"

然后是数据字段：

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

然后：

rpt.Refresh
rpt.Show

如果有人能帮我一把，我将不胜感激

---

编辑：输入错误，清除代码。

对于可能阅读此内容的任何人。。。 我通过从存储过程切换到视图解决了这个问题。由于某些原因，SHAPE不能与sotred进程一起工作，我拒绝编写大型SQL查询。我刚刚在我的数据库上创建了一个视图并进行了查询

此外，连接字符串需要更改。

---

总之，这是个难题。

对于任何可能读到这篇文章的人来说。。。 我通过从存储过程切换到视图解决了这个问题。由于某些原因，SHAPE不能与sotred进程一起工作，我拒绝编写大型SQL查询。我刚刚在我的数据库上创建了一个视图并进行了查询

此外，连接字符串需要更改。

---

总之，很难。

另外，我忘了在两个存储过程查询中添加

Nit

字段。另外，我忘了在两个存储过程查询中添加

Nit

字段。