QA@IT

VS2010PROで必要な数だけ抽出したレコードのコピーをDataTableに追加したい

2207 PV

下記のコードを用いて得意先を抽出しデータテーブルを作成、その内容をデータグリッドビューで表示。
抽出したレコードのコピーを枚数分(TextBox2.Textに入力した値)をデータテーブルに追加するにはどうすれば良いでしょうか?8と入力なら8枚となります。現状1レコードに対して1枚になっています

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.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 郵便番号,住所1,住所2,得意先コード,得意先名,0 as 印刷枚数 from 得意先T where 得意先コード = @得意先コード "
Command.Parameters.AddWithValue("@得意先コード", TextBox1.Text)
Dim Adapter As OleDbDataAdapter = New OleDbDataAdapter
Adapter.SelectCommand = Command
Adapter.Fill(dt)
'印刷枚数
Dim d As String = TextBox2.Text
TextBox8.Text = d
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
ElseIf RadioButton4.Checked = True Then
Row("敬称") = RadioButton4.Text
End If
'データテーブルの内容をDGVで確認
DataGridView1.DataSource = dt
End Sub

お願いします

回答

ウォッチ

この質問への回答やコメントをメールでお知らせします。