数据报表刷新！！！！！！！！！！

Question

我已经用DVSTORM编辑好了几个DVC文件,但是现在需要把几个DVC文件合并成一个文件,不知道怎么办,但要是直接在时间线上生成AVI文件后就不能再对其进行编辑,若采用复制的方法把另外一个DVC文件复制到另一个后面,只能一段一段的复制,但是文件下的字幕与其他东西并不能复制过去,请问该怎么办啊!我用的是ＡＣＣＥＳＳ数据库，在写数据报表的时候，我用的是ＶＢ自带的报表设计器，我的功能实现是把数据库中的一条指定记录打印出来，而不是把所有的数据都打印出来，我在设计的时候采用的是先新建一个过渡表，里面只有一条记录，当我要打印ＴＥＸＴ１．ＴＥＸＴ里面所显示的ＩＤ的那条记录的时候，我先从表中取出该记录，然后放入过渡表，但是对过度表只进行更新操作，使过渡表总是只有一条记录，这样我用报表写的时候，总是把过渡表作为数据源，这样每次只会在报表中显示一条指定记录，但是现在我发现，我每次把过渡表中的数据刷新后，过渡表的数据是刷新了，但是报表所显示的数据并没有刷新．只有把整个程序关闭掉后，再进行操作能找到我需要的记录．也就是说我每打印一个人的记录，就需要把整个程序关掉一次．若不关闭窗口，再继续输入一个指定ＩＤ，弹出的报表还是保持原样．请问这是怎么回事啊，我想问问在自带报表设计器如何能实现我所需要的功能，我不知道在报表里面能不能传递一个ＩＤ参数．还有什么更好的方法吗？谢谢大家----是不是可以在报表的记录集里面添加相关的SQL查询语句实现，但是我不知道是在哪个地方添加，而且
能把MODEL里面定义的全局变量在报表里面引用吗？主要是传递变量，怎么引用呢？

Answer 1

运行VB，选择“工程＿引用”命令，引用 Microsoft ActiveX Data Objects 2.5 Library 
接添加DataReport，在上面布置好相应的控件，可以在Form中添加代码：　Dim cn As ADODB.Connection
Dim rs As ADODB.RecordsetPrivate Sub cmdPrint_Click()    Dim StrConnect As String
    Dim Sql As String'连接数据库
    Set cn = New ADODB.Connection
    StrConnect = "连接数据库字符串"
    cn. Open StrConnect'设置text控件属性
　　DataReport1.Sections("Section1").Controls("text1").DataField = "SalesNo"
　　DataReport1.Sections("Section1").Controls("text2").DataField = "Vendor"
　　DataReport1.Sections("Section1").Controls("text3").DataField = "Product"'打开记录集
　　Set rs = New As ADODB.Recordset
　　Sql ="Select * from "& _
        "where id = Text1.text"                        
    rs.Open Sql, cn, adOpenKeyset, adLockOptimistic    Set DataReport1.DataSource = rs    DataReport1.Show 1
End Sub

Answer 2

it too long,i have not time to write.sorry

Answer 3

上面这个错了
Sql ="Select * from where id = Text1.text"
应该是：
Sql ="Select * from where id = '"& Text1.text &"'"  sorry

Answer 4

还是错的:)
急着下班了~~
Sql = "Select * from youTabel where id = '"& Text1.text &"'"