|
申し訳ありません。あれから参考を元に作成してみましたがエラーにはなりませんが、クリレポのテキストに表示されません。
ソースはこのように書いてみましたが、修正すべき点があればアドバイスいただけないでしょうか?
よろしくお願いします。
Private Sub FormPrev_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
↑クリレポプレビューが貼ってあるフォーム
' 単位()
UNIT = CType(CONSTRep11.Section2.ReportObjects("Text6"), CrystalDecisions.CrystalReports.Engine.TextObject)
↓ラジオボタン
If Form1.OUT_M.Checked = True Then
UNIT.Text = "(単位: 百万円)"
ElseIf Form1.OUT_Y.Checked = True Then
UNIT.Text = "(単位: 円)"
End If
'日付()
DAY = CType(CONSTRep11.Section2.ReportObjects("DAY"), CrystalDecisions.CrystalReports.Engine.TextObject)
DAY.Text = Strings.Left(Form1.T_DAY.Text, 4) & "年" & Strings.Mid(Form1.T_DAY.Text, 5, 2) & "月" & _
Strings.Right(Form1.T_DAY.Text, 2) & "日 現在"
SEARCH = CType(CONSTRep11.Section2.ReportObjects("SEARCH"), CrystalDecisions.CrystalReports.Engine.TextObject)
SEARCH.Text = The_Seach
End Sub
|