C# と VB.NET の質問掲示板

2009/11/16(Mon) 16:14:09 編集(投稿者)
2009/11/16(Mon) 16:13:32 編集(投稿者)

<pre><pre>■No43690 (がながな さん) に返信
> 申し訳ございません
> 誤字が見つかりましたので、下記に修正させていただきます
> 
> STRSQL = "select " _
> & "得意先コード,[Farm-OutRev] as [FarmOutRev],製作号機左,親部品番号2,RAWMATNO2," _
> & "PDMLREV2,加工完了日,PL区分PDML,表処完了日,型式コード,個数機左,個数機右," _
> & "製作号機右,PLREV,PDMLREV1,PL区分APL1,EOREV,DRWREV,KITNO2,掴み代,板圧," _
> & "ラバーグループBMS,巾,ラバーグループKE,長,個数取,単位,材料名称,形状区分," _
> & "個数取左右,材料規格,型材番号,業務,材料個数,品保,資材コード,DRAWADCN,登録日," _
> & "PLADCL,加工プロ,工作図REV,表処プロ,技術,得意先略称" _
> & " from " _
> & "[TA1001_ASOrderメイン]" _
> & " where " _
> & "ID=" & 100
> 
> 
> ASODataAdapter = New SqlDataAdapter(STRSQL, cnASO)
> ASODataSet = New DataSet
> ASODataAdapter.Fill(ASODataSet, "TA1001_ASOrderメイン")
> ASOTable = ASODataSet.Tables("TA1001_ASOrderメイン")
> 
> 
> とし、通常なら
> MyTable.Rows(0).BeginEdit()
> MyTable.Rows(0)("得意先コード") = me.得意先コード.Text
> MyTable.Rows(0)("FarmOutRev") = me.FarmOutRev.Text
> MyTable.Rows(0)("製作号機左") = me.製作号機左.Text
> MyTable.Rows(0)("親部品番号2") = me.親部品番号2.Text
> -----STRSQLフィールドの全てを対応して記入------
> MyTable.Rows(0).EndEdit()
> 
> とするのですが、For文を使用して行数を少なくしたいと思います。
> 
> DataReaderならFieldcountプロパティがあったので、可能だったのですがこの場合どのようにすればいいのでしょうか？
> 。尚、STRSQLのフィールド名をフォームのテキストボックスの名前は同じ名前にしてあります。
> 御教授の程よろしく御願いいたします。
> 

どっちが効率的かわかりませんが…

MyTable.Rows(0).BeginEdit()
foreach(TextBox textBox in フォーム名.Controlls)
{
   if(MyTable.Rows(0)(textBox.Name) != null)
   {
      MyTable.Rows(0)(textBox.Name) = textBox.Text
   }
}

こんな感じでしょうか？
すいません、言語が解らなかったです。

あと、コレはフォームに属する「全テキストボックス」を持ってくるので、
意図しないテキストボックスが配置されていたときの挙動について保証はできません。
</pre></pre>

■No43694 (がながな さん) に返信
> 早速の御返事ありがとうございました。
> すいません、開発環境はVB2008になります。
> フォーム上のアイテムをベースにすると、必要のないものまでピックアップされてしまうので（例えばテキストボックスでもDatasetに書き込みしたくないオブジェクトがあります。）、DataSetベースには難しいでしょうか？
> よろしく御願いいたします。

やっぱり＾＾；

もう一つの方法ですが…

'カラム数分ループを回す
For i As Integer = 0 To MyTable.Columns.Count
   'DataTableのカラム名称と一致するテキストボックスを取得する
   Dim txt As TextBox = Me.Controls(MyTable.Columns(i).ColumnName)
   '一致したテキストボックスの値を反映する
   MyTable.Rows(0)(i) = txt.Text
Next

というのもできた（と思います）