Dim strconn As String Dim strsel As String Dim strA As Sting strA = "c:\re.mdb" '该数据库中的表名称为rc1 strconn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & strA & ";" DataEt1.Connection1.ConnectionString = strconn strsel = "SELECT 姓名 AS Expr1, 科别 AS Expr2,职务 AS Expr3 FROM rc1 WHERE 姓名 <> '示例' ORDER BY 科别, 姓名" DataEt1.Commands(1).CommandText = strsel DataRt1.Show Unload DataEt1 Exit Sub '以上DataEt1为数据环境,DataRt1为报表不知这段代码对你有没有用,这是我的程序中的一段,主要是用来动态改变数据源的,每次打开报表时,就可以用strsel变量来确定数据源,所以,strsel可以动态赋值后,报表也就动态赋值了
我是用DataEnvironment的connection设置数据连接cammand设置报表数据的 我从另一个模块通过SELECT INTO 把检索到的数据写入表B报表从表B调数据 ‘通过SHOW方法运行报表 为什么我检索数据后报表的数据不会发生变化 Private Sub Combo1_Change() 财务结算信息.Show End Sub
报表没有真正刷新 If DataEnvironment1.rsCommand4.State = adStateOpen Then DataEnvironment1.rsCommand4.Close End IfDataReport5.Show
你是用的SQL做为数据源吧,只有这样,才能更新的!
Dim strsel As String
Dim strA As Sting
strA = "c:\re.mdb" '该数据库中的表名称为rc1
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strA & ";"
DataEt1.Connection1.ConnectionString = strconn
strsel = "SELECT 姓名 AS Expr1, 科别 AS Expr2,职务 AS Expr3 FROM rc1 WHERE 姓名 <> '示例' ORDER BY 科别, 姓名"
DataEt1.Commands(1).CommandText = strsel
DataRt1.Show
Unload DataEt1
Exit Sub
'以上DataEt1为数据环境,DataRt1为报表不知这段代码对你有没有用,这是我的程序中的一段,主要是用来动态改变数据源的,每次打开报表时,就可以用strsel变量来确定数据源,所以,strsel可以动态赋值后,报表也就动态赋值了
我从另一个模块通过SELECT INTO 把检索到的数据写入表B报表从表B调数据
‘通过SHOW方法运行报表 为什么我检索数据后报表的数据不会发生变化
Private Sub Combo1_Change()
财务结算信息.Show
End Sub
If DataEnvironment1.rsCommand4.State = adStateOpen Then
DataEnvironment1.rsCommand4.Close
End IfDataReport5.Show