没太明白你的意思。 按我的理解,你可以在Detail上按你的报表要求用TextBox和其它控件布局,TextBox不要绑定。比如Field3可能会有空值,那么双击ActiveReport2添加代码:Private Sub ActiveReport_DataInitialize() '数据源 DataControl1.Source = "连接数据源的SQL语句" End SubPrivate Sub Detail_Format() Dim i If IsNull(DataControl1.Recordset.Fields("可能空值的字段").Value) Then i = "" Else i = CInt(DataControl1.Recordset.Fields("可能空值的字段").Value) End If Me.Field3.Text = CStr(i) End Sub
在要打印的时候要可以取得有多少空行吧?做个循环,有几行执行几次. Sub PrintNULL() Printer.CurrentX = 0 Printer.CurrentY = 0 Printer.Print " " End Sub
http://community.csdn.net/Expert/topic/3181/3181353.xml?temp=.3697321
说到了一些VB用于控制打印的基本方法和调用函数。
按我的理解,你可以在Detail上按你的报表要求用TextBox和其它控件布局,TextBox不要绑定。比如Field3可能会有空值,那么双击ActiveReport2添加代码:Private Sub ActiveReport_DataInitialize()
'数据源
DataControl1.Source = "连接数据源的SQL语句"
End SubPrivate Sub Detail_Format()
Dim i
If IsNull(DataControl1.Recordset.Fields("可能空值的字段").Value) Then
i = ""
Else
i = CInt(DataControl1.Recordset.Fields("可能空值的字段").Value)
End If
Me.Field3.Text = CStr(i)
End Sub
Sub PrintNULL()
Printer.CurrentX = 0
Printer.CurrentY = 0
Printer.Print " "
End Sub