关于richtextbox控件的打印问题

[stovl]

报表打印时只显示第一行，应该是换行问题，相关代码如下：


Private Sub SFills()
Dim sqlstr As String
Dim IAffected As Integer

On Error GoTo ErrFlag

SearchCode = ""
IAffected = 1
Conn.BeginTrans

sqlstr = ""
sqlstr = "insert into base values ("
For I = 0 To 95
If I = 11 Then

sqlstr = sqlstr & " '" & IIf(Trim(Text1(I).Text) = "", "0.00", Trim(Text1(I).Text)) & "',"
Else

sqlstr = sqlstr & " '" & IIf(Trim(Text1(I).Text) = "", "", Trim(Text1(I).Text)) & "',"
End If

Next

sqlstr = sqlstr & " '" & IIf(Trim(RichTextBox1.Text) = "", Null, Trim(RichTextBox1.Text)) & "',"


sqlstr = sqlstr & " '" & IIf(Trim(Text1(96).Text) = "", "", Trim(Text1(96).Text)) & "',"
sqlstr = sqlstr & " '" & StoreTime & "',"
sqlstr = sqlstr & " '" & Trim(Text2.Text) & "',"
sqlstr = sqlstr & " '" & Trim(Text3.Text) & "',"
sqlstr = sqlstr & " '" & Trim(Text4.Text) & "'"
sqlstr = sqlstr & " " & ")" & ""

Conn.Execute sqlstr, IAffected
If IAffected <> 1 Then GoTo ErrFlag
Conn.CommitTrans
SearchCode = Trim(Text2.Text)

If MsgBox("请检查数据是否正确！", vbQuestion + vbYesNo, "提示！") = vbNo Then

Text1(0).SetFocus
Exit Sub

End If

MsgBox "开始打印，请准备好纸张！", vbInformation, "提示！"
Cryrpt1.Destination = 0
Cryrpt1.ReportFileName = App.Path & "..\Reports\base.rpt"
Cryrpt1.SelectionFormula = "{base.NumberId}='" & Text2.Text & "' "
Cryrpt1.WindowState = crptMaximized
Cryrpt1.Action = 1

Text1(0).SetFocus
Call ClearText
Call GetBillCode
Text3.Text = Syear
Text4.Text = Smouth

Exit Sub
ErrFlag:
Conn.RollbackTrans
MsgBox "数据录入失败，请检查你的输入！ ", vbInformation, "提示！"
End Sub

[flc]

关注

• 打赏
• 举报

回复 赞