水晶报表小问题,请高手指点,十万火急,................50分

Question

报表如下
        送货单
1   aa
2   bb
3   cc
请问如何动态的控制送货单这个标题,就是在VB界面上的一个TEXT里面输入一个退货单,报表的标题改为退货单.急急急

Answer 1

晕哦，这样的问题。dim str as string'送货单时
str="送货单"
'退货单时
str="退货单"

Answer 2

'DataReport名称为xdt_Drpt1
'Conn 为Connection对象
'在DataReport中必须有对应的Text
下边贴出来的仅是部分,我正好在写一个打印的东东1~
__________________________________________
Dim rs As New ADODB.Recordset
rs.Open sql, Conn, 1, 1
If rs.RecordCount = 0 Then
MsgBox "当前病人未做心电图检查", vbOKOnly, "提示"
rs.Close
Exit Sub
End If
With xdt_Drpt1
   .Sections("Section1").Controls("text1").DataField = "心电图号"
   .Sections("Section1").Controls("text2").DataField = "病人编号"
   .Sections("Section1").Controls("text3").DataField = "病人姓名"
   .Sections("Section1").Controls("text4").DataField = "病人年龄"
   .Sections("Section1").Controls("text5").DataField = "临床诊断"
   .Sections("Section1").Controls("text6").DataField = "心律"
   .Sections("Section1").Controls("text7").DataField = "心房率"
   .Sections("Section1").Controls("text8").DataField = "心室率"
   .Sections("Section1").Controls("text9").DataField = "心电轴"
   .Sections("Section1").Controls("text10").DataField = "PR时间"
   .Sections("Section1").Controls("text11").DataField = "QRS时间"
   .Sections("Section1").Controls("text12").DataField = "QT时间"
   .Sections("Section1").Controls("text13").DataField = "心电图特征"
   .Sections("Section1").Controls("text14").DataField = "心电图诊断"
   .Sections("Section1").Controls("text15").DataField = "检查医生"
    Set .DataSource = rs
.Show 1
End With