Vb6 我不能每次运行数据报告时都得到结果。我怎样才能解决这个问题？

我想做一份日常收支账目的报告。我正在为此报告使用数据环境，并将日期字段设置为组字段。问题是每次我运行程序时，数据有时会出现，有时会显示为空白。我不明白为什么会这样，原因是什么？ 我已经通过数据环境工具直接绑定了表 代码在这里

私有子CmdOk\u单击

Dim rsrojmeline作为新的ADODB.Recordset出现 将RsRojmelExp设置为新的ADODB.Recordset 将RsTempRojmel设置为新的ADODB.Recordset cn.从TempRojmel执行delete

rsrojmelinecome.Open select*from Rojmel，其中Date1介于&formattpicker1.Value和MM/DD/yyyy之间&& FormattdPicker2.Value，MM/DD/YYYY和IncExp='ytJtf'，cn， adOpenKeyset，ADLOCK

RsRojmelExp.Open select*from Rojmel，其中Date1介于&formattdPicker1.Value、MM/DD/yyyy和&& FormattdPicker2.Value，MM/DD/YYYY和IncExp='SJtf'，cn， adOpenKeyset，ADLOCK

Set RsTempRojmel=New ADODB.Recordset

RsTempRojmel.从TempRojmel、cn、adOpenKeyset、ADLOCK中打开Select*

如果rsrojmelinecome.RecordCount>=1，则

对于i=1到rsrojmelcome.RecordCount RsTempRojmel.AddNew RsTempRojmel.FieldsId=i RsTempRojmel.FieldsIncVigat= RsRojmelIncome.FieldsVigat RsTempRojmel.FieldsDate1= rsrojmelcome.FieldsDate1 RsTempRojmel.FieldsIncAmount= rsrojmelinecome.FieldsAmount RsTempRojmel.Update RsRojmelIncome.MoveNext 接下来我 如果结束

如果RsRojmelExp.RecordCount>=1，则

对于RsRojmelExp.RecordCount RsTempRojmel.AddNew RsTempRojmel.FieldsId=j RsTempRojmel.fieldsexpigat的j=1= RsRojmelExp.FieldsVigat RsTempRojmel.FieldsDate1= RsRojmelExp.FieldsDate1 RsTempRojmel.FieldsExpAmount= RsRojmelExp.FieldsAmount RsTempRojmel.Update RsRojmelExp.MoveNext 下一个j 如果结束

如果DataEnvironment1.rsCommand1\u Grouping.State=0，则

DataEnvironment1.rsCommand1_Grouping.Open SHAPE{SELECT*FROM TempRojmel}作为Command1 COMPUTE Command1，sumcomand1.'IncAmount' 作为Aggregate1，SUMCommand1。“ExpAmount”作为Aggregate2，CALC 按“日期1”将Aggregate1-Aggregate2聚合为NetProf1， DataEnvironment1.Connection1、adOpenKeyset、ADLOCK

如果结束

RptRojmel.SectionsSection7.Controls.ItemText1.DataField=DataEnvironment1.rsCommand1_Grouping.FieldsNetProf1.Name

RptRojmel.SectionsSection7.Controls.ItemText2.DataField=DataEnvironment1.rsCommand1_Grouping.FieldsAggregate1.Name

RptRojmel.SectionsSection4.Controls.ItemLblDate1.Caption=DTPicker1.Value

RptRojmel.SectionsSection4.Controls.itemlBalDate2.Caption=DTPicker2.Value

RptRojmel.刷新 DataEnvironment1.rsCommand1\u Grouping.Requery RptRojmel.刷新 端接头

而不是

If DataEnvironment1.rsCommand1_Grouping.State = 0 Then

  DataEnvironment1.rsCommand1_Grouping.Open " SHAPE {SELECT * FROM      TempRojmel} AS Command1 COMPUTE Command1, SUM(Command1.'IncAmount') AS Aggregate1, SUM(Command1.'ExpAmount') AS Aggregate2,CALC (Aggregate1-Aggregate2) as NetProf1 BY 'Date1' ", DataEnvironment1.Connection1, adOpenKeyset, adLockOptimistic

End If

试用

If DataEnvironment1.rsCommand1_Grouping.State = adStateOpen Then

  DataEnvironment1.rsCommand1_Grouping.Close

End If

DataEnvironment1.rsCommand1_Grouping.Open " SHAPE {SELECT * FROM      TempRojmel} AS Command1 COMPUTE Command1, SUM(Command1.'IncAmount') AS Aggregate1, SUM(Command1.'ExpAmount') AS Aggregate2,CALC (Aggregate1-Aggregate2) as NetProf1 BY 'Date1' ", DataEnvironment1.Connection1, adOpenKeyset, adLockOptimistic

---

嗨，伙计们！有人知道吗？谢谢你的回复，但它只在调试中工作，不与F5一起工作：我的问题仍然存在！！