現在ラベル印刷プログラムを作成しております
開発業務を始めて１ヶ月に満たないものです
VS2010Proとクリスタルレポートバンドル版を使っています
ラベル印刷を行う取引先情報をデータテーブルにして、それをデータグリッドビューに表示しています
取引先コードから郵便番号、住所１、住所２、取引先名、印刷枚数、敬称をデータグリッドビューに表示させています
印刷枚数は直接テキストボックスに入力、敬称についてはラジオボタンを１つ選択し表示させています
データグリッドビューにデータテーブルの内容を表示させる所まで出来ましたが、
その内容をクリスタルレポートに表示させ、印刷したく思っていますがそれが出来ません
ご教授下さい
フォーム４にクリスタルレポートを表示させています
データグリッドビューの構成は、以下の通りです
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'プログラムコード
Dim Cn As New OleDbConnection
Dim Command As OleDbCommand = New OleDbCommand
Dim OLEDBCon As OleDb.OleDbConnection = _
New OleDb.OleDbConnection
OLEDBCon.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Form1.TextBox1.Text & ";" & _
"Persist Security Info=False"
Command.Connection = OLEDBCon
'データテーブルに敬称区分を保持する列
Command.CommandText = "select 郵便番号, 住所１, 住所２, 取引先名 , 00 as 印刷枚数 from 取引先T where 取引先コード = @取引先コード "
Command.Parameters.AddWithValue("@取引先コード", TextBox1.Text)
Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter
Adapter.SelectCommand = Command
Adapter.Fill(dt)
'レコード取得
TextBox3.Text = CStr(dt.Rows(dt.Rows.Count - 1).Item(0))
TextBox4.Text = CStr(dt.Rows(dt.Rows.Count - 1).Item(1))
TextBox5.Text = CStr(dt.Rows(dt.Rows.Count - 1).Item(2))
TextBox6.Text = CStr(dt.Rows(dt.Rows.Count - 1).Item(3))
'印刷枚数
Dim d As String = TextBox2.Text
TextBox7.Text = d
'敬称
If RadioButton1.Checked = True Then
TextBox8.Text = RadioButton1.Text
ElseIf RadioButton2.Checked = True Then
TextBox8.Text = RadioButton2.Text
ElseIf RadioButton3.Checked = True Then
TextBox8.Text = RadioButton3.Text
ElseIf RadioButton4.Checked = True Then
TextBox8.Text = RadioButton4.Text
End If
'取引先名
Dim a As String
a = TextBox6.Text
'印刷枚数
Dim Row As DataRow = dt.Rows(count)
Row("印刷枚数") = TextBox2.Text
count = count + 1
'ラジオボタンの反映
Dim b As DataColumn = dt.Columns.Item("敬称区分")
If b Is Nothing Then
dt.Columns.Add("敬称区分", GetType(String))
End If
If RadioButton1.Checked = True Then
Row("敬称区分") = RadioButton1.Text
ElseIf RadioButton2.Checked = True Then
Row("敬称区分") = RadioButton2.Text
ElseIf RadioButton3.Checked = True Then
Row("敬称区分") = RadioButton3.Text
End If
'データテーブルの内容をデータグリッドで確認
DataGridView1.DataSource = dt
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
’クリレポ立上げ
Form4.Show()
Form4.Activate()
※クリレポは立ち上がりますが、この先が分かりません
end sub
宜しくお願い致します
