1180
社区成员
- 主页
水晶报表小问题,请高手指点,十万火急,................50分
报表如下
送货单
1 aa
2 bb
3 cc
请问如何动态的控制送货单这个标题,就是在VB界面上的一个TEXT里面输入一个退货单,报表的标题改为退货单.急急急
送货单
1 aa
2 bb
3 cc
请问如何动态的控制送货单这个标题,就是在VB界面上的一个TEXT里面输入一个退货单,报表的标题改为退货单.急急急
...全文
请发表友善的回复…
发表回复
风之浪漫 2004-10-12
'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
'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
ZWB_ZYN 2004-10-12
把str送给标题不就可以了？
ZWB_ZYN 2004-10-12
晕哦，这样的问题。
dim str as string
'送货单时
str="送货单"
'退货单时
str="退货单"
dim str as string
'送货单时
str="送货单"
'退货单时
str="退货单"
caihong 2004-10-12
使用参数字段