小妹求教各位哥哥关于vb报表打印及时刷新的问题？

Question

我已经写上了，这样写对不对，在线等待   
Set DataEnvironment1.Commands(1).ActiveConnection = DataEnvironment1.Connection1
         
        DataEnvironment1.Commands(1).CommandType = adCmdText
        DataEnvironment1.Commands(1).CommandText = Str_Sql1(DcbBh)
     If DataEnvironment1.rscmd_GcRation.State = adStateOpen Then
        DataEnvironment1.rscmd_GcRation.Close
     End If

Answer 1

对阿，我也有这样的问题，我试过了好多方法，包括unload 报表，都不是很理想，请那位大侠指点一下吧

Answer 2

If DataEnvironment1.rscmd_GcRation.State = adStateOpen Then
        DataEnvironment1.rscmd_GcRation.Close
End If
DataReport1.Show
应该没问题啊？

Answer 3

If DataEnvironment1.rscmd_GcRation.State = adStateOpen Then
        DataEnvironment1.rscmd_GcRation.Close        unload 报表 ‘试一试
        
     End If
报表.show

Answer 4

各位，show的时候没问题，只在report.printreport时有问题,报表内容是对的，打不同的报表相应变化了，可就是表头不跟着变。

Answer 5

那表头就用label替换吧，别在库里取！

Answer 6

很简单露，用Dataenviroment.rsCommand1.Requery的命令试一下巴

Answer 7

在datareport的initialize() 事件里加

Answer 8

Requery命令我以前用过，效果不明显，而且我的表内容都对，只是表头不跟着变，而表头我是用的lable，通过代码赋的值。其他表的打印都可以。只有这个表。
　　而且，我打印预览和打印都是用的一个过程（自己写的生成报表的过程），预览没事，只有打印不行，做了这么长时间的打印了，这个问题还真是第一次遇到呢。哪位高手有同遇，请解解疑，小妹在这儿先谢了。

Answer 9

我也有过这样的问题,可以用下面的方法解决:Set rsCommand1.DataSource = Nothing
Set rsCommand1.DataSource = Dataenviroment1
Dataenviroment1.rscmdLift.Requery

Answer 10

"表头我是用的lable，通过代码赋的值"是不是赋值给别的控件了？把代码贴出来。